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EDITORIAL 


Chers co-membres, 


L'Assemblée Générale se tiendra le samedi 16 janvier 1987 au Centre Jean 
Verdier, de 14 à 16h, juste avant la réunion mensuelle habituelle. A noter dans 
vos tablettes. 

Nous vous enverrons prochainement une convocation. D'ici là, n’hésitez pas à 
nous prévenir si vous désirez faire partie du Bureau ou si vous souhaitez voir 
abordé un point particulier. 

Nous parlerons de sujets importants pour la vie du Club. Aussi je compte sur 
votre présence. 


A bientôt donc, 


Pierre David (37) 
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PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se 
réunit une fois par mois, en plein coeur de Paris. 
Amenez votre matériel, votre bonne volonté et vos 
idées ! Plus vous en apporterez, et plus vous en 
trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, 
aucun ordre du jour, discussion ou autre n'étant 
imposé. Un membre du bureau est toujours présent. 
Ainsi, si vous désirez remettre votre article tout frais 
au Journal, si vous avez des suggestions à faire, si vous 
voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul 
instant, venez nous rejoindre tous les premiers 
samedis de chaque mois (sauf en période de vacances 
scolaires) au : 

Centre de Jeunesse et de Loisirs Jean Verdier 

11 rue de Lancry 

75010 Paris 


et en montant au deuxième étage, vous entendrez des 
éclats de rire et des discussions passionnées vers la 
salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l’accès en métro, trois possibilités s’offrent à 
VOUS : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant 
première lors de ces réunions. A bon entendeur, 
salut ! 


Les dates des prochaines réunions sont : 
Samedi 21 novembre 1987 

Samedi 5 décembre 1987 

Samedi 16 janvier 1988 

Samedi 20 février 1988 

Samedi 5 mars 1988 

Samedi 16 avril 1988 

Samedi 7 mai 1988 

Samedi 4 juin 1988 


Pierre David (37) 





AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais VOUS ne Savez pas 
sous quelle forme “léquipe de rédaction" souhaite 
recevoir votre prose. C’est ici que se trouvent les 
réponses à vos questions. 


Dans la mesure du possible, vous devez nous envoyer 
vos écrits sur support magnétique (carte, cassette ou 
disquette). Soyez sans crainte, nous vous retournerons 
vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, 
ou ne pouvez vous rendre aux réunions, alors et alors 
seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support 
magnétique, ne dépassez pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre 
texte les commandes de formattage suivantes (et non 
les commandes du formatteur HP) : 

"" centre un titre, par exemple : 
©TITRE 


"" (CHR$(92)) marque le début et la fin d'un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos 
idées qui, même si vous en doutez, intéressera 
certains des membres du Club. Surtout si vous vous 
sentez débutant. Les articles pour débutants écrits par 
des débutants sont ceux qui manquent le plus. Fin de 
paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de 
caractères Roman8. Les possesseurs de HP71 
utiliseront les redéfinitions de touches ci-dessous, 
ainsi que le fichier CHARLEX listé dans le coin des 
Lhex en fin de journal. 


Jean-Jacques Dhénin (177) 


DEF KEY 'fW!, CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); (è) 
DEF KEY ‘fR', CHR$(201); (è) 
DEF KEY 'fY', CHR$(203); (ù) 
DEF KEY 'fU', CHR$(195); (à) 
DEF KEY ‘fl!', CHR$(209); (5) 
DEF KEY 'fO', CHR$(194); (6) 
DEF KEY 'f/!, CHR$(92); (\) 
DEF KEY 'fA', CHR$(192); (à) 


DEF KEY 'fS', CHR$(200): (à) 
DEF KEY ‘fD', CHR$(205); (ë) 
DEF KEY 'fJ!, CHR$(207): (ü) 
DEF KEY 'fK', CHR$(221): (i) 
DEF KEY 'f*1, CHR$(124): (1) 
DEF KEY 'fC', CHR$(181): (ç) 


COURRIER DES LECTEURS 


Dominique Marcaillou 
29, rue du Moulin 
31320 Castanet 

Tél : 64 81 74 92 


Cher Pierre, cher Janick, 


Je viens de me rendre compte d’une très grosse gaffe 
financière : avoir acheté le lecteur de cartes pour 
HP-71 en dehors du Club (1400F au lieu de 500F) : 
quelle erreur ! Je viens de m’apercevoir que malgré 
une attention particulière à la propreté des cartes, le 
message ERR:R/W Error revenait trop souvent. C’est 
pour cela qu'avant de lire la carte, l'utilisation d’un 
coton tige et d’alcool à 90° réduit considérablement ce 
facteur d’erreur. 


Je tiens à féliciter les auteurs des Lex FIND et 
RWLEX qui sont carrément géniaux. À ce sujet, je 
propose deux définitions de touches qui permettent 
une utilisation plus facile et plus rapide de FINo : 


DEF KEY "f M,UIFAS$S#'! THENFINDAS": 


DEF KEY "g ",DIMAS$ [96] @A$=D I SP$QI FAS#! ! THEN 
DELAYO,O0QEDITCAT$(0)aFINDAS": 


- la première (touche rf] SPC1) recherche toutes les 
occurences de la variable A$ dans le fichier courant, 


- la seconde recherche la première position de 
l'affichage dans le fichier en remettant le pointeur de 
la ligne courante à la première ligne du fichier. Il 
subsiste envore un problème : lorsque FIND recherche 
le message, il ne traite pas la première ligne du 
programme, même si le pointeur est au début et 
même si le message est contenu dans la première 


ligne. 





J'aimerais bien savoir comment pratiquement Michel 
Martinet a pu pousser son HP-71 à 86 Ko. Il avait 
succintement relaté la méthode théorique dans JPC 
30 de Décembre 85 / Janvier 86. Cela serait sympa si 
quelqu'un m'’expliquait ce bricolage, car les 17 Ko 
sont déjà saturés. Car avec les facilités qu’arbore le 
HP-71 dans le stockage de fichiers par l’adjonction de 
modules et par la gestion de la mémoire, cela serait 
idiot de s’en passer. 


Voila, c’est terminé, et que l’ensemble de mes 
lecteurs passent de bonnes vacances, 


Amicalement, 


Dominique Marcaillou (315) 


COURRIER DU COEUR 


PPC-Paris 
B.P. 604 
75028 Paris Cedex 01 


Vend : 

Lecteurs de cartes magnétiques HP82400A neufs 
pour HP-71 (dans leur boîte, avec documentation et 5 
cartes magnétiques) : 500 F seulement. 


1 lot de cartes magnétiques pour HP-41, HP-67, 
HP-97 et même HP-65 : 100 F seulement. 


Jean-Jacques Moreau 
ENST de Bretagne 
B.P. 832 

29285 Brest Cedex 
Tél : 98 00 17 43 


Vend : 

HP-71 : 4000 F, lecteur de disquettes : 3000 F, module 
HP-IL : 1400 F, module Forth / Assembleur : 1400 F, 
module Maths : 800 F, excellent état. 


Laurent Eymard 

22 rue Lechantre 

02100 Saint Quentin 

Tél: 23 62 05 92 (le week-end) 
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Vend : 
Module HP-IL + littérature (manuels, Autour de la 
Boucle) + cable : 770 F. 


Jacques Dupuis 

26 rue de Chartres 
91400 Orsay 

Tél: (1) 69 28 82 58 


Vend : 

Lecteur de cassettes HP82161A + 4 cassettes : 3500 
F, interface vidéo HP82163A : 1000 F, extension de 
ports (8 ports) pour HP-41 : 500 F, 2 modules 
mémoire HP82106A : 200 F. 


SOS 


Dr A. Bezzaoucha 
8 rue Girardin 
Parc de la Liberté 
16000 Alger 
Algérie 


Cherche : 





Des programmes  d’analyses statistiques et 
épidémiologiques, y compris l'analyse multi-variée 
pour HP-41CV. 


Roger Miollan 
Infirmier-Hygiéniste 

Centre Hospitalier 

01012 Bourg-en-Bresse Cedex 


Cherche : 


Un programme de calcul de coefficient de corrélation 
pour un groupement de données à deux dimensions 
suivant la formule : 


2Nn::X:Y: - 


ij iY; Cn;x;x2n;y,)/n 





2 2 2. + 42 
C2n;:x; -(Zn:x;)°7/n1 % C2ny; (2n;y;) /n] 
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HP28 


E. Gengoux 


Mode Horloge (acte IT) 
Encore des courbes ! 
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MODE HORLOGE 
(ACTE Il) 


JPC 46 (Juillet - Août 1987) contenait un programme 
pour simuler une horloge sur le HP-28C. 


La version présentée fonctionnait parfaitement pour 
la version 1BB du HP-2&C. 

Le numéro de version est obtenu en faisant #10 
SYSEVAL en mode décimal. 


Une nouvelle version de HP-28C va être mise 
prochainement en circulation, ce sera la version 1CC. 
Le programme diffusé dans JPC 47 devra donc 
contenir : #1266 SYSEVAL au lieu de #123E SYSEVAL. 


Note de la rédaction : il passera encore beaucoup 
d’eau sous les ponts avant que ces nouvelles versions 
soient disponibles chez votre revendeur ! Pas la peine 
de l’embêter tous les jours en lui demandant : « alors, 
la nouvelle version est arrivée ? » Sachez également 
que HP ne remplacera pas les versions 1BB en 1CC. 
Dommage... 


ENCORE DES COURBES ! 


Il est bien établi que « tracer des courbes sur la 
HP-28, mais c’est très simple ! » (voir Particle de 
Pierre David dans JPC 44). Nous irons un peu plus 
loin cette fois, avec par ordre d’entrée en scène : 


- un petit perfectionnement permettant de modifier 
plus facilement une courbe déjà tracée, 

- un programme de tracé de courbes données par leur 
équation polaire, 

- et enfin, un autre programme de tracé de courbes 
données par leur équation implicite, c’est à dire 
données sous la forme f{x,y)=0. 


Ainsi, votre trousse à outils de petit botaniste 
collectionneur des belles fleurs qui poussaient jadis 
dans tous les bons ouvrages de Math, avec des noms à 
faire rêver : Néphroïde de Machin-Chose, non, 
Docteur, ce n’est pas une maladie de l’appareil génito 
urinaire ! Sera-t-elle complète, et pourrez-vous, 
Taupin mon frère, ne plus « sortir de la route » dans 
un virage mal négocié au détour d’une branche que 
vous voyiez tout autrement qu’elle n’était. 





UN PERFECTIONNEMENT UTILE 
EN PARAMETRIQUES 


L'utilisation toute bête de la routine PARAM (ibid), 
en Jui passant ses arguments par la pile 
opérationnelle, ne permet pas commodément de 
redéfinir la fenêtre de tracé (si ça dépasse, ou que 
c’est trop petit ou trop grand), ni de répéter le tracé 
avec des paramètres différents dans les équations. 
Songez aux courbes de Lissajous (x=sin(af), 
y=sin(bf)}, avec a et b entiers), bien connues des 
électroniciens... 


Créons donc un programme appelant qui va définir le 
domaine de tracé et les axes, et passer à notre routine 
PARAM les deux équations. Il sera facile de modifier 
ce programme et de le relancer, sans toucher 
PARAM et sans avoir à se souvenir de ce qu’on avait 
mis dans la pile. 


Ecrivons donc comme suit : 


« RAD 
(-1.1,-1.1) PMIN 
(1.1,1.1) PMAX 
(0.0,0.0) AXES 
ISIN(8*T)' 'SIN(3*T)' 0.0 6.28 
PARAM 
PRLCD 


Bien entendu, PARAM est toujours la même : 


« + y mi m2 
« CLLCD DRAX 


m2 m1 - 400 / 

mi me 

FOR t 
t !T'! STO 
x EVAL y EVAL R-C PIXEL 
DUP 

STEP 

DROP 


» 


» 


Notons au passage qu'il est plus naturel d'utiliser 
[PMIN] €t [PMAX] que [*W] et [*H] pour définir ou 
modifier la fenêtre de tracé. 


CLIMAT POLAIRE 


Avec la même philosophie de programme appelant, 
définissons une routine qui prend dans la pile, d’une 
part l’expression r=f(f), où t est l’angle et r le rayon, et 
d’autre part les limites de l’intervalle de variation de £. 
On aura la routine de tracé POLR suivante : 





«a+ pr ti te 
« CLLCD DRAX 

t2 t1 - 100 / 

+ 

FOR t 
t ‘T' STO 
r EVAL t R+C P-+R PIXEL 
DUP 

STEP 

DROP 


» 


» 


Ecrivons à présent le programme appelant pour un 
Limaçon de Pascal d’équation r= cos t + 0.2: 


« RAD 
(-0.5,-1) PMIN 
(1.5,1) PMAX 
(0,0) AXES 
ICOS(T)+0.2! 0.00 12.57 
POLR 
PRLCD 


On voit que ça reste tout à fait simple et de bon 
goût... 


IMPLICITE, MAIS TRES EXPLICITE 


Les deux routines qui suivent (toujours le même 
système d’appel de l’une par l’autre) sont d’exécution 
nettement plus lente : en effet, on n’y fait plus varier 
un seul paramètre { par pas sur un intervalle, mais 
deux (x et y) pour balayer toute la fenêtre à la 
manière du « balayage lignes » de votre téléviseur, et 
on teste pour chaque point s'il vérifie ou non 
l'équation, ou plus exactement s’il est suffisamment 
rapproché de la courbe pour qu’on puisse allumer le 
pixel correspondant. L’exemple est un cercle de rayon 
unité, ce qui va permettre de comparer les temps de 
tracé pour chacun des trois systèmes (paramétriques, 
polaires, implicite). 


Voici donc la routine graphique FXY : 


« + X1 x2 y1 y2 
CLLCD DRAX 
x2 x1 - 50 / x0 STO 
yè y1 - 50 / y0 STO 
x1 x2 
FOR x 
y1 y2 
FOR y 
x 'X! STO 
y !Y! STO 


< 


#” 





f EVAL ABS 0.03 
IF < 
THEN 
X y R-+C PIXEL 

END 
y0 

STEP 

x0 

STEP 
» 


» 


Passons à la routine appelante : 


« (-3.3,-1.1) PMIN 
(3.3,1.1) PMAX 
(0.0,0.0) AXES 
X"2#V" 2-1! -1.0 1.0 -1.0 1.0 
FXY 


» 


Le tout prend une dizaine de minutes, contre 30 
secondes en paramétriques ! 


PETITES DIFFICULTES RESIDUELLES 


Les programmes vus jusqu'ici marchent sans difficulté 
quand la fonction est définie en tout point de 
Pintervalle ; lorsqu'il y a division par zéro, l’erreur 
peut être masquée sans difficulté (flag 59 armé) ; par 
contre, quand se présente une pseudo 
indétermination de la forme zéro sur zéro (étant 
précisé que la fonction admet une limite gauche et 
droite), je n’ai pas encore trouvé de truc qui marche ! 
À vous de jouer ; prenez par exemple la fonction 
y=sin(x)/x, une bonne et brave fonction à tracer 
comme il est dit dans le manuel HP ; eh bien, n'est-ce 
pas vexant de ne pas pouvoir la tracer au voisinage de 
zéro ? D'autant que la Casio FX-7000G, pour ne pas 
la nommer, sait le faire, elle ! 


Eric Gengoux (108) 


ADP 
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M. Markov Utilitaires de gestion de disques (acte IT) 10 
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GESTION DE DISQUES 
(ACTE Il) 


Le lecteur de cassettes HP-82161 a été un réel 
bienfait pour les utilisateurs de HP-41. Il fournit une 
grande capacité de stockage et un accès relativement 
rapide, surtout si on le compare au lecteur de cartes 
ou au crayon optique. Il élimine également la 
ponction de courant que ces appareils exercent sur les 
batteries du calculateur. 


Le nouveau disque HP-IL offre un meilleur temps 
d'accès, principalement parce que les opérations 
prennent peu ou pas de temps. Par exemple, le temps 
maximum d'accès aux données n’est que de 1,742 
seconde sur le HP-9114A. 


Les lecteurs de disques ont un inconvénient majeur : 
leur consommation électrique est beaucoup plus 
importante. Vous pouvez décharger les batteries du 
lecteur de disquettes en 40 minutes de lecture ou 
d'écriture continue. Le chargeur n’est pas d’un très 
grand secours : ses 3 watts ne sont que la moitié de la 
puissance des batteries. De plus, les pointes de 
consommation se situent très au delà de ces chiffres. 
Il faut environ 5 heures pour recharger les batteries à 
80 % de leur capacité maximum. 


Si vous avez stocké de nombreux fichiers sur un 
support (disque ou cassette), vous vous apercevrez 
que l’accès aux fichiers situés vers la fin du catalogue 
est long. Les problèmes de consommation électrique 
deviennent prépondérants et un nouveau problème 
apparaît : l'usure du support dans la partie contenant 
le catalogue. Ce problème est particulièrement 
sensible pour les utilisateurs de HP-41 car leurs 
fichiers sont généralement petits. Ceci conduit, pour 
maximiser l’occupation du support, à stocker de 
nombreux fichiers et donc à avoir des catalogues très 
longs. Comme le HP-41 est plus lent que les autres 
contrôleurs, ceci ne fait qu’augmenter le temps de 
travail du lecteur et donc les problèmes de 
consommation électrique. 


Les utilitaires DIRL, DIRLX, GDIRX et SRCHX ont été 
développés pour remédier à ces problèmes. 


GoIRX (Get DIRectory by X) vous permet d'éviter le 
balayage du catalogue qui prend plus de temps et 
consomme plus de courant que la copie proprement 
dite du fichier en mémoire. Vous devez cependant 
fournir le numéro du fichier dans le registre X. Si 
vous n’entrez pas le bon numéro, ce n’est pas grave : 
les fonctions standard se chargeront d’effectuer la 
recherche dans le catalogue. 





DIRL et DIRLX sont utilisés pour déterminer le numéro 
de fichier dont vous avez besoin pour utiliser GDIRX. 
DIRL est similaire à DIR dans la mesure où il 
commence au début du catalogue. Il numérote les 
fichiers, y compris les fichiers purgés s’il y en a, et en 
imprime le nom suivi de trois nombres : le type de 
fichier, la piste et le secteur de début. Cette liste doit 
être utilisée comme un complément de DIR. DIRLX 
fonctionne exactement comme DIRL. La principale 
différence est que vous spécifiez dans X un numéro 
de fichier. La liste commencera avec le premier 
fichier du secteur du catalogue contenant l'entrée que 
vous avez demandée. 


SRCHX est une variante simple de GDIRX qui vous 
permet de faire une recherche dans le catalogue en 
commencant au fichier dont vous donnez le numéro 
dans X. Il vous permet d’utiliser la liste produite par 
un DIR normal et ignore les fichiers purgés. La 
recherche dans le catalogue est limitée à 3 secteurs de 
catalogue en commencant au secteur contenant le 
fichier donné en X. Ceci est fait pour limiter le temps 
pris par une recherche, en langage utilisateur, dans le 
catalogue. 


MODE D'EMPLOI 


Un module Extended I/0O est nécessaire, ainsi qu’un 
module HP-IL et une mémoire de masse. 


GDIRX 


Si vous souhaitez éviter la recherche dans le catalogue 
pour, par exemple, le fichier 223, mettez ce nombre 
dans le registre X, et tapez XEQ "DIRX". Il vous suffit 
ensuite d'utiliser les fonctions ordinaires (GETAS, READP, 
READSUB, READK, READS, READA, SEEKR, READR, ZERO et WRTR) 
comme elles sont décrites dans le manuel. READRX et 
READR fonctionnent également très bien 

rappelez-vous simplement que le support doit être 
préalablement positionné en utilisant l’ordre SEEKR. 


GDIRX utilise la pile et le registre ALPHA. II restaure 
le registre M, si bien qu’un nom de fichier (7 
caractères au plus) peut être stocké en ALPHA avant 
d'utiliser GDIRX : c’est une option et non une 
obligation. Si, en utilisant GETAS, vous voulez spécifier 
un nom de fichier en mémoire étendue différent du 
nom sur le support magnétique, vous devez rentrer les 
noms de fichiers après avoir exécuté GDIRX. 


SRCHX 


SRCHX utilise également un numéro de fichier dans le 
registre X. Cependant, avec SRCHX vous devez avoir 
également le nom du fichier sur le support dans le 
registre ALPHA et rien d’autre. Le nom du fichier est 


utilisé lors de la recherche dans le catalogue. Les 
noms de fichiers peuvent avoir jusqu’à 7 caractères. 
Le nom du fichier destination et la virgule de 
séparation ne peuvent être ajoutés qu'après avoir 
exécuté SRCHX. 


GDIRX et SRCHX peuvent être utilisés comme 
sous-programmes. Vous devrez faire particulièrement 
attention en entrant les nom et numéro de fichiers : 
une erreur provoquera une longue recherche dans le 
catalogue pour aboutir finalement au message NOT 
FOUND. Voici quelques exemples d’appel : 

223 XEQ "GDIRX" "FILENAME" nn SEEKR 

MFILEAME" ... 125 XEQ "GDIRX" READP 

MFILENAME" 198 XEQ "SRCHX" READS 


DIRL 


DIRL est utilisé exactement comme Dir. Toute 
imprimante ou interface vidéo HP-IL fonctionnera. 
Assurez vous que vous êtes bien en modes AUTOI0 et 
ADRON. Evitez le mode trace. 


DIRLX 


DIRLX est utilisé exactement comme DIR. Vous devez 
fournir un numéro de fichier en X qui détermine le 
début du listage. 


DIRL et DIRLX utilisent l’instruction FMT. Cette fonction 
facilite le formattage en colonnes quand on utilise une 
imprimante HP-82162A. D’autres imprimantes 
peuvent répondre à FMT d’une manière différente : ils 
accumulent deux octets de formattage. Avec 
l'interface vidéo 80 colonnes ou l'imprimante 
HP-82905 ceci fonctionne bien et économise des 
octets. Avec d’autres appareils vous pouvez avoir à 
remplacer l'instruction FMT par " " ACA ou 32 ACCHR 
ACCHR. 


UN PEU DE THEORIE 


L'interface HP-IL utilise le buffer numéro 1 du 
lecteur comme zone de stockage du catalogue. C’est à 
dire qu’il contient une copie du secteur de catalogue 
le plus récemment utilisé, à moins que le lecteur n’ait 
été remis à zéro. La plupart des fonctions d’accès au 
support, mais pas celles qui créent une nouvelle 
entrée dans le catalogue, examinent d’abord le 
contenu du buffer 1 avant de se lancer éventuellement 
dans un balayage complet du catalogue. Si l’entrée 
souhaitée se trouve dans le buffer, il n’y aura pas de 
recherche longue et coûteuse. 


GDIRX et SRCHX accèdent au secteur du catalogue qui 
devrait contenir l’entrée de fichier dont vous avez 
spécifié le numéro en X. SRCHX s’assure que le nom de 


fichier que vous avez donné se trouve bien dans ce 
secteur. Quant à GDIRX, il copie ce secteur dans le 
buffer 1 de telle façon que les fonctions assembleur 
standard puissent Putiliser. 


En modifiant le contenu du secteur 1, vous pouvez 
faire croire aux fonctions du module HP-IL qu’un 
fichier sécurisé ne l’est pas, ou qu’un fichier WRTA est 
en fait un une entrée de catalogue pour récuperer des 
fichier après que le catalogue ait été endommagé. 


ANALYSE DETAILLEE DES PROGRAMMES 


Lignes synthétiques 


Dans GDIRX : 

09: RCL M: 144, 117 

10:;:: MDN: -242 :;68, 0. 

225 STO M::-145,: F7. 

Dans SRCHX : 

09: Ajoute 7 espace : n'est pas synthétique. 
13: "D! 2462: 68j:0. 

29: X<>0: 206, 119. 


Dans DIRL et DIRLX : 
11: 242, 68, O. 


34: "M: 241, 32 Non synthétique : un espace. 


DIRX 


Les lignes 2 à 5 calculent l’adresse du secteur de 
catalogue que vous voulez. Les lignes 6 à 8 
sélectionnent l'unité de stockage comme appareil 
principal. La ligne 9 sauve le nom du fichier, s’il 
existe, dans ALPHA pour usage ultérieur. Les lignes 
10 à 16 positionnent le lecteur sur l'entrée demandée 
et la ligne 19 copie le contenu de ce secteur dans le 
buffer 0 du lecteur. La boucle au LBL 09 est destinée à 
attendre que le lecteur se positionne : cette attente est 
indispensable avec un lecteur de cassettes. Les lignes 
22 et 23 copient le buffer 0 dans le buffer 1 et enfin 
les lignes 24 et 25 restituent le nom de fichier dans 
ALPHA. Le CLST est facultatif, 


SRCHX 


Les lignes 2 à 8 sont identiques à celles de co1rx. Les 
lignes 9 à 11 complètent le nom de fichier à 10 
caractères par des blancs. Les lignes 13 à 24 font le 
même travail que les lignes 10 à 21 de GDIRX. A ce 
moment, puisque nous risquons d’avoir à lire 
plusieurs secteurs avant de trouver la bonne entrée, il 
est intéressant de rester en mode pot 2. Ceci signifie 
que nous devons tester le nom de fichier avant de lire 
la totalité des informations de cette entrée, sinon nous 
pourrions nous retrouver en train de lire le secteur 
suivant. 
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La boucle au LBL 00 utilise le 16 (ligne 6) qui a été 
stocké dans LASTX par FINDAID comme compteur des 
fichiers trouvés dans les deux premiers secteurs à 
explorer. Si rien n’est trouvé dans ces deux secteurs, 
le lecteur est laissé positionné sur le secteur suivant. 
Les lignes de programme synthétiques (lignes 12, 29 
et 39) permettent d’utiliser des noms de fichiers sur 7 
caractères. Notez que chaque entrée est lue en deux 
morceaux : d’abord 21 caractères, commençant au 
nom du fichier puis les 11 restants. Vous pouvez 
travailler avec 14 et 18 caractères si vous changez la 
ligne 29 par X<N. 


Une fois la recherche terminée, le nom de fichier est 
recopié dans le registre ALPHA et le buffer 0 est 
copié dans le buffer 1 (lignes 37 à 41). 


Que se passe-t-il si le nom de fichier ou le numéro 
introduits sont incorrects ? Le pire qu’il puisse arriver 
est que vous passiez par la recherche standard, en 
assembleur, du module. Dans ce cas, ou bien vous 
trouverez le fichier, ou bien vous obtiendrez le même 
message que si vous n'étiez pas passé par les 
utilitaires. 


DIREX et DIRLX 


Le code utilisé dans ces deux sous-programmes est 
très semblable à celui de SRCHX. La même procédure 
d'accès à un secteur du catalogue se retrouve aux 
lignes 2 à 24. La boucle au LBL 00 est toujours la 
boucle de lecture du catalogue. La principale 
différence est que vous devez avoir un pointeur de 
fichier. Celui-ci est créé par les lignes 6 à 8 et 27 à 30. 
La boucle du LBL 00 accumule les données contenues 
dans chaque entrée de manière à faciliter la 
production d’une liste : 

- lignes 32 à 35 : numéro du fichier et espace, 

- lignes 36 à 39 : nom de fichier, 

- lignes 40 à 42 : les deux octets du type de fichier, 

- lignes 43 et 53 : ajoutent deux espaces ou marques 
de format, 

- lignes 44 à 48 : test de la fin du catalogue et fin si 
terminé, 

- lignes 49 à 55 : secteur de début du fichier. Cette 
information n’est pas utilisée par GDIRX ou SRCHX, elle 
est utile pour des applications spécialisées. 

- lignes 56 à 61 : impression des données que vous 
avez collectées, déplacement jusqu’à l’entrée suivante 
et retour au LBL 00 pour son traitement. 


REMARQUES GENERALES 


Ces programmes ont été conçus principalement pour 
fonctionner avec un lecteur de disquettes HP-9114. 
Cependant, il s’est avéré qu’ils étaient utiles avec la 
cassette. Le programme DIRLX donne aux utilisateurs 


de HP-41 les possibilités du programme DIRALL qui 
utilise un HP-75 et une imprimante 80 colonnes pour 
vous dire tout sur vos fichiers HP-41, HP-75 ou 
HP-71. Par ailleurs, avec un listing produit par DIR ou 
DIRL, vous pouvez recréer sans trop de difficultés vos 
entrées de fichier. 


Michael Markov (301) 


Programmes DIRL et DIRLX : 


O1*LBL "DIRL' 

0 

03*LBL "DIRLX" 

8 / INT ENTER" ENTER® 2 + "D" XTOAR 16 
FINDAID SELECT 4 DEVL SORT OUTAN 


20*LBL 09 

SF 25 DEVT FC?C 25 GTO 09 CF 29 FIX O R”° 8 
* SIGN 

31*LBL 00 

LASTX ACX "1" ACA 10 INAN ATOX ACA INXB 


INXB ACX FMT 255 X=Y? CLRDEV X=Y? RTITN INXB 
INXB INXB ACX FMT INXB ACX PRBUF 16  INAN 
ISG L #“#  GTO 00 END 


Programme GDIRX : 


O1*LBL "GDIRX!! 

8 / 2 + 16 FINDAID SELECT RCL M "D" 
RCL Z XTOA 4 DEVL SQRT OUTAN 

17*LBL 09 
SF 25 DEVT 
CLST END 


FC?2C 25 GTO 09 5 DEVT R° STOM 


Programme SRCHX : 


O1*LBL "SRCHX! 


8 / 2 + 16 FINDAID SELECT "+ N 7 
AROT RCL M ‘D R° XTOAR 4 DEVL 2 OUTAN 
20*LBL 09 

SF 25 DEVT FC?C 25 GTO 09 R° 


26*LBL 00 

21 INAN X<> O X=Y? GTO 01 11 
DSE L GTO 00 

37*LBL 01 


CLA STO M 5 DEVT END ( / 
S | 2 


INAN X<> Z 








HP75 

E. Gengoux Le nouveau coin des Lhex 14 
E. Gengoux Programme "LEXPOKE" 35 
E. Gengoux Programme "LEXDUMP" 35 
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L'AUTRE COIN DES LHEX 


Tout d’abord, voici le truc pour créer, sans risque 
d'erreurs, un fichier Lex directement dans votre 75. 
C’est presque aussi facile qu'avec le 71, grâce au 
programme LEXPOKE joint. Il faut seulement disposer 
de la ROM I/0 et du Lex PEEKPOKE (celui diffusé 
par la Bibliothèque Utilisateurs de Corvallis, mais 
nous pouvons vous le copier - joindre une carte 
magnétique). 


Saisissez votre fichier sous forme de texte, en 
numérotant les lignes de un en un (AUTO 1,1) et en 
respectant la disposition indiquée (numéro de ligne, 
espace, chiffres hexadécimaux, espace, checksum). 
Une fois saisi, renommez le fichier, si possible en 
utilisant le nom du Lex suivi de la lettre T (par 
exemple : TOTOLEXT), car le programme supprimera ce 
T après avoir converti le texte en Lex. 


Le programme vérifie les saisies et, s’il constate une 
erreur, indique le numéro de la ligne et vous replace 
sous l’éditeur de texte (tiens, comme chez Borland !). 
Vous n’avez plus qu’à faire un FETCH xx, corriger la 
ligne, et taper CONT [RTN] pour poursuivre le travail... 
Commode, non ? 


Faisons donc RUN"LEXPOKE". Le premier menu 
demande le nom du fichier texte, puis indique "vérif. 
CHKSMs en cours", S’il découvre des anomalies ou si 
vous n’avez pas mis du tout de checksums, 1l demande 
“Présence CHKSMs O/N". Bien entendu, vous pouvez 
shunter ce contrôle. Ceci est utile, par exemple, pour 
rentrer un Lex ancien qui n'utilise pas ce système : 
c’est le cas de ceux publiés il y a longtemps dans 
PPC-CJ ou PPCT. C’est assez risqué quand-même ! Si 
donc vous répondez 0, le programme s'arrêtera à 
chaque erreur rencontrée, comme indiqué ci-dessus. 
Il fera de même à chaque caractère non-hexadécimal 
(lettre O à la place du chiffre 0, ou lettre 1 à la place 
du chiffre 1...). 


Une fois le fichier dûment vérifié, le programme 
affiche le message "POKE en cours", puis "Terminé". 
Faites alors un CAT ALL pour vérifier (dernière 
précaution!) que le cat du Lex a pour taille le nombre 
d’octets indiqué en tête moins 18 (ce sont ceux de la 
directory interne). Si oui, vous pouvez passer à la 
dernière formalité, qui va activer votre LEX : il s’agit 
de positionner ses access bits et la ROM 1/0 
intervient de nouveau ici, ou plutôt l’un de ses trésors 
cachés. Tapez : 


SET ACCESS "<nom du LEX>!",!RxelPCnT" 


en respectant bien la position des lettres et les 
majuscules sinon, plantage spectaculaire garanti ! 
C’est tout ! 


Ab, si ! Pour faire bonne mesure, nous avons inclus le 
programme LEXDUMP qui a servi à faire les exemples. 
Comme cela, si vous « commettez » un jour un Lex, 
vous pourrez à votre tour le diffuser ! 


Eric Gengoux (108) et HPCC 
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TOURS DE FORTH 


Le module Translator Pac a un grave défaut : si vous 
créez des mots Forth dans le vocabulaire HP41V, il 
ne vous est pas possible d’utiliser tout le vocabulaire 
standard. En effet, beaucoup de mots seront 
interprétés comme des mots HP41 et ce n’est pas 
forcément ce que vous souhaitez... 


Par exemple, essayez de créer le mot suivant dans ce 
vocabulaire 

: BOUCLE 1000 0 DO 1 . LOOP ; 

Les bornes de la boucle seront déposées sur la pile 
flottante et non sur la Data Stack ; de même, le mot 1 


mettra sur la pile flottante le contenu de la variable 
Basic 1. 


Il faut donc trouver un moyen de contourner ce 
problème et ce moyen, le voici : 


- Structurez vos écritures afin de découpler les mots 
HP41 des mots Forth dans la mesure du possible. 


- Ecrivez vos définitions Forth dans ce vocabulaire. 


- Déposez le CFA des mots que vous venez de définir 
sur la pile, puis entrez dans le vocabulaire qui vous 
intéresse; ce peut être le vocabulaire HP41V par 
exemple, ou bien votre propre vocabulaire. 


- Compilez ces adresses (CFA) dans des LITERAL. 


- Récrivez les mots précédents en déposant le CFA 
correspondant sur la pile et en l’exécutant; le tour est 
joué. Vous pouvez même prévoir un comportement 
différent selon le vocabulaire dans lequel vous opérez. 


Bien entendu, ce principe n’est applicable que pour 
les mots que vous pouvez définir complètement dans 
le vocabulaire FORTH. 


A titre d'exemple, voici un mot pour le vocabulaire 
HP41V qui extrait du registre ALPHA une 
sous-chaîne représentée par un double pointeur dans 
le registre X de la pile flottante. Dans 
l’environnement Forth, ce mot dépose simplement sur 
la pile l’adresse et le nombre de caractères de la 
sous-chaîne (format TYPE). Dans l’environnement 
HP41V, la sous-chaîne remplace la chaîne initiale 
dans le registre ALPHA. 


( Mots définis simultanément dans 2 vocabulaires ) 


! 


HEX 


: DecodeX ( décodage du registre X ) 
2FBDF 2FBDA DO I Na LOOP 
2FBDO 4NQ 
CASE 
0 OF 5 ROLL DROP O0 ENDOF 
1 OF ENDOF -1 CHIRP ABORT'"' FTH ERR:Data Error 
ENDCASE 
A+ 
2SWAP 4 ROLL 
A*+A* +: 


( Mot AL défini dans l'environnement FORTH ) 
: AT 2FC84 2FC82 Ca DecodeX SUB$ :; 

' AT ( dépose Le CFA sur La pile ) 

HP41V DEFINITIONS 


Dans Le vocabulaire HP41V, on récupère le CFA 
sous La forme d'un litéral; remarquez que cette 
valeur se trouve déjà sur La pile: il faut donc 
la dupliquer en suspendant La compilation sans 
oublier de La détruire par la suite. En effet, 
il doit y avoir Le même nombre d'objets sur la 
pile avant et après La compilation d'un mot 
compilant lui-même un litéral. 


ef 
st tt St St St St St St 


: addr(A[) [ DUP ] LITERAL ; DROP 


( Mot AL défini dans l'environnement HP41V ) 


AC addr(Al[) EXECUTE 
( on recopie La chaîne dans le registre ALPHA ) 


DUP 2FC82 C! 2FC84 OVER S! ; 
DECIMAL 
FORTH FORTH DEFINITIONS 


Une autre application de ce principe peut être le 
comportement après erreur d’un logiciel opérant dans 
un environnement particulier. 


Si vous ne prévoyez rien, chaque erreur vous ramène 
dans l’environnement FORTH, ce qui peut être 
génant ou pour le moins peu pratique. 


Commencez par écrire votre vocabulaire : par 
exemple, le logiciel de gestion d’une pile complexe 
(JPC 40 du même auteur). Revenez dans 
l'environnement FORTH et créez deux mots : lun 
constitue votre routine d’erreur et se termine a priori 
par QuIT (cela permet de reprendre en douceur le 
contrôle du calculateur sans réinitialiser 
l’environnement) ; l’autre mot sert à initialiser 
l’environnement de votre logiciel et place le CFA du 


mot précédent dans la variable ONERR. 








On a donc, par exemple : 


: ERREUR ." Erreur! QUIT : 
: VAZY Vocabulaire DEFINITIONS ['] ERREUR ONERR ! ; 


Supposons maintenant que vous vouliez que votre 
logiciel reprenne la main après l’affichage du message 
d'erreur tout en permettant à l’utilisateur de voir 
l'intitulé plus précis de cette erreur. 


Avant de revenir à l’environnement FORTH pour 
construire le mot d’initialisation, déposez le CFA du 


ou des mots qui permettront à votre logiciel de 
reprendre la main : 


! REVIENZY 
Puis, dans l’environnement FORTH : 


: ON-Y-VA [ DUP ] LITERAL ; DROP 
: ERREUR ." Erreur! KEY DROP ON-Y-VA EXECUTE : 


Au KEY, appuyez sur [g] [ERRM] pour connaître l'intitulé 
de l’erreur ; l'appui sur toute autre touche rend la 
main à la fonction REVIENZY de votre logiciel, et vous 
restez dans cet environnement. 


Enfin, n’oubliez pas de remettre oNERR à O0 lorsque 
vous quittez l’environnement de votre logiciel. 


Il y a sûrement d’autres applications possibles de ce 
principe. Ce qui prouve bien que Forth a plus d’un 
tour dans son sac et recèle des merveilles qui me font 
oublier les SIGouillages rébarbatifs. 


Pour terminer, je lance un appel pour qu’on écrive un 


mot Forth (et uniquement en Forth) qui permettra de Y 
stocker des codes machine dans le PFA d’un autre 
mot sans passer par un assembleur bien entendu. N 


Autrement dit, faire pour les mots Forth ce qui existe F 
déjà pour les Lex grâce au programme MLLEX. a C 7 \ 4 
C 


Alors, à vos méninges ! 


| 
Sn IS À S 
FN Ai 
Alain Goubault de Brugière (308) [ 2) ) 
Ÿ 


JPC 49 Page 17 er 


ee DE nn 0e + 


RECAPITULATION 
DES TOKENS 


Comme chaque année maintenant, nous publions la 
liste complète des tokens attribués dans JPC Rom 
(ID #E1). 


Certains changements sont intervenus au cours du 
processus d’homologation des tokens chez HP, ainsi 
que lors de la phase de remaniement de certaines 
fonctions. 


Certains mots-clefs ont été renommés, ainsi : 


FILE? devient  FILESIZE 
HMS+ devient  HMSADD 
HMS - devient  HMSSUB 
CR devient PCR 

FF devient  PFF 

LF devient  PLF 

PL devient  PAGELEN 
FPRM devient  FPRIM 
NPRM devient  NPRIM 
BLIST devient  DBLIST 


DISABLE et ENABLE vont être modifiés et rebaptisés 
vraissemblablement LEX ON/OFF. 


D'autre part, certains mots-clefs ont été supprimés : 


INVS 
KSPEED 
TYPE 
LABELS 
MNEMO 


Ne vous effrayez pas, KSPEED est supprimé, mais l'effet 
reste ! Seul le choix de la valeur n’est plus possible. 
L’accélération du curseur est désormais constante. 


Vous  observerez de nouvelles fonctions de 
programmation structurée (LOOP / END LOOP, IF 
multi-lignes, CASE...). Il s’agit de STRUC2 qui sera 
publié prochainement. 


En revanche, le désassembleur interactif SYSEDIT et les 
fonctions associées (OPCODES et NEXTOP$) ne seront pas 
publiées, mais font partie de JPC Rom. 


$=ADBUFS($) 

$=ASCS($) 
$=ATHS(SC,n]) 
$=HTA(SC,n]) 

$=RED($) 
$=REPLACES(S,$,$ [,$1) 


XFN 225001 ADBUFS 
XFN 225002 ASC$ 

XFN 225003 ATH$ 

XFN 225004 HTAS$ 

XFN 225005 RED$ 

XFN 225006 REPLACES$ 
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XFN 


XWORD 


XWORD 
XWORD 


XWORD 


XFN 
XWORD 
XFN 
XFN 


XFN 
XWORD 
XFN 
XWORD 


XFN 
XFN 


XFN 
XFN 
XFN 
XFN 


XWORD 


XWORD 


XWORD 


XFN 
XFN 
XWORD 


XFN 


XFN 
XFN 
XFN 
XFN 
XFN 


XWORD 
XWORD 
XWORD 
XFN 

XWORD 
XWORD 
XWORD 
XWORD 
XWORD 
XWORD 
XWORD 


225007 


225008 


225009 
225010 


225011 


225012 
225013 
225014 
225015 


225016 
225017 
225018 
225019 


225020 
225021 


225022 
225023 
2250284 
225025 


225026 


225027 


225029 


225030 
225031 
225032 


225033 


225034 
225035 
225036 
225037 
225038 


225039 
225040 
225041 
225042 
225043 
225044 
225045 
225046 
225047 
225048 
225049 


FILESIZE 


ATTN 


DISABLE 
ENABLE 


FKEY 


CONTRAST 
INVERSE 
INVS 
PAINT 


ENDUPS$ 
ENDUP 
STARTUP$ 
EXECUTE 


ARR 
COMB 


HMSADD 
HMSSUB 
HMS 

HR 


EDIT 


STACK 


MARGIN 


NEXTOPS 
OPCODES 
SYSEDIT 


MENU 


CENTERS 
CESURE 
FORMATS 
REDUCES$ 
SPACES 


BELL 
BOLD 
PCR 
ESC$ 
PFF 

PLF 
MODE 
PERF 
PAGELEN 
UNDERLINE 
RAP 





n=FILESIZE($) 
ATTN ON]OFF 


DISABLE $ 
ENABLE $ 


FKEY $ 


n=CONTRAST() 
INVERSE 
$=INVS($) 
n=PAINT(n,n,n) 


$=ENDUPS$() 
ENDUP $ 
$=STARTUPS() 
EXECUTE $ 


n=ARR(n,n) 
n=COMB(n,n) 


n=HMSADD(n,n) 
n=HMSSUB(n,n) 
n=HMS(n) 
n=HR(n) 


EDIT $ [TO $] 
STACK n 


MARGIN n 


NEXTOP$S(#) 
OPCODES($) 
SYSEDIT $ 


n=MENU(Nn [,n]) 


$=CENTERS(S,n) 
n=CESURE($,n) 
$=FORMATS($,n) 
$=REDUCES($) 
$=SPACES(n) 


BELL 

BOLD ON|OFF 

CR 

$=ESCS( [$]) 

FF 

LF [n] 

MODE n 

PERF ON]OFF 
PAGELEN [In [,n]] 
UNDERLINE ON]OFF 
WRAP ON|OFF 


XFN 
XFN 
XFN 
XFN 
XFN 
XFN 
XFN 


XFN 
XFN 
XFN 
XFN 


XWORD 


XFN 
XFN 
XWORD 
XFN 


XWORD 
XWORD 
XWORD 
XWORD 
XWORD 


XWORD 


XFN 
XFN 


XWORD 


XFN 
XWORD 


XWORD 
XWORD 


XFN 
XWORD 


XFN 
XFN 
XFN 
XFN 
XFN 
XFN 


XFN 
XFN 
XWORD 


XWORD 
XWORD 


225050 
225051 
225052 
225053 
225054 
225055 
225056 


225057 
225058 
225059 
225060 


225061 


225062 
225063 
225064 
225065 


225066 
225067 
225068 
225069 
225070 


225071 


225072 
225073 


225075 


225076 
225077 


225078 
225079 


225080 


225081 


225082 
225083 
225084 
225085 
225086 
225087 


225088 


225089 


225090 


225091 
225092 


DATESTRS 
DATEADD 


DDAYS 
DMY 
DOWS$ 
DOW 
MDY 


MAXD 
MAXM 
MEMD 
MEMM 


EXIT 


NLOOP 
PPOLL 
SLEEP 
SRQ 


END 
WHILE 
REPEAT 
UNTIL 
LEAVE 


SWAP 


ENTRYS$ 
TOKEN 


FIND 


MAPS 
MAP 


GLINE 
GPSET 


RPLCS 
SHRINK 
FPRIM 
NPRIM 
PGCD 
PHI 
PPCM 
PRIM 
FRACS$ 


POSI 


BLIST 
PBLIST 


RENUMREM 


$=DATESTR$($|n) 
n=DATEADD(${n,n) 
n=DDAYS($[n,$|n) 
DMY 

$=DOWS($|n) 
n=DOW($|n) 

MDY 


MAXD(n|$) 
MAXM(n]$) 
MEMD(n|$) 
MEMM(n|$) 


EXIT var 


N=NLOOP( [n)] ) 
=PPOLLX [n]) 
SLEEP 

n=SRQ( [n]) 


END WHILE/LOOP/SELECT/IF 
WHILE n 

REPEAT 

UNTIL n 

LEAVE 


SWAP var ,var 


$=ENTRYS(S [,n]) 
n=TOKEN(S [,n]l) 


FIND $ 


MAP$($,$,$) 
MAP $|#n,$,$,nt,nl] 


GLINE n,n,n,n,n 
GPSET n 


S=RPLCS($,$,$) 
SHRINK $ 


n=FPRIM(n [,n]) 
n=NPRIM(n,n) 
n=PGCD(n,n...n) 
n=PHI(n) 
n=PPCM(n,n...n) 
n=PRIM(n [,n]l) 


$=FRACS(n [,n]) 
n=POSI($,n [,nl) 
BLIST [$ [,n [,n]l]] 


PBLIST [$ [,n [,n]]] 
RENUMREM [n£,n£,n£,n]]1] 


XWORD 225093 FINPUT FINPUT $,$1,$],var 


XFN 225094 RREC$ 
XWORD 225095 WREC 


$=RRECS($[n,$|[n) 
WREC $,n]$,$in 


XUORD 225096 LOOP LOOP 

XUORD 225097 SELECT SELECT n[$ 

XUORD 225098 CASE CASE n[$ [TO n[$] / ELSE 

XWORD 225099 1F IF n THEN 

XUORD 225100 ELSE ELSE 
CHRONOMETRE 


Le HP-71 est une machine dotée d’une horloge 
interne, d’où un bon nombre d’applications. 


Le Lex que je vous propose utilise ces capacités : il 
s’agit d’une fonction chronomètre. 


Un chronomètre est tout simplement un compteur 
que l’on peut arrêter. La qualité d’un chronomètre est 
fonction de sa précision (plus petite mesure du temps 
mesurable). Ici, l’objectif atteint est le centième de 
seconde. 


Dès lors, des problèmes se posent. Il faut que 
l'affichage et le décodage du clavier soient 
suffisamment rapides. De ce fait, des routines comme 
KEYSCN ou DSPCHA ne peuvent être utilisées : 
elles sont beaucoup trop lentes. Il a fallu donc 
improviser. 


Pour le clavier, on n’avait pas besoin du décodage 
(Pordinateur n’a pas besoin de savoir quelle touche a 
été pressée). Aussi, linstruction C=IN suffit. Pour 
l'affichage, on écrit directement les caractères ASCII 
dans le buffer d’affichage, puis on modifie les 
drapeaux de la routine d’affichage (écran non correct, 
enlever le curseur, etc). Le programme fait ensuite 
appel à la routine BLDDSP et le tour est joué. 


Le problème suivant était la sortie du résultat. Faut-il 
sortir un nombre en secondes, une chaîne au format 
hh:mmi:ss.cc ou encore un nombre au format 
hh.mimsscc ? 


J'ai choisi les deux premières solutions, deux 
fonctions ont donc été créées : CHRONO ct CHRONOS. 
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CHRONO renvoie le nombre en secondes, alors que A=C 
CHRONO$ renvoie une chaîne représentant le temps GOSBVL FLOAT  Transf. Le nb en virgule 
écoulé sous le format hh:mm:s5.cc. * flottante(12digit) 
C=0 w 
P= 12 
Lionel Guillou (326) LCHEX 512 C=5.12 
GOSBVL DV2-12 Divise l'heure par 5.12 
GOSBVL CLRFRC  Supprime la partie frac. 
LEX !CHRONOLX ! GOSBVL TRUNCC  Convs. 15dig/12dig 
ID #5E ID inutilisé P=C 0 Exposant du nb 
MSG 0 CSR M Ortgine n=.cccoeccé. scsi. 
POLL O0 CSR M 
FLREG  EQU #2F6F8  Adr drapeaux utilisateurs CSR M 
BSPCL?  EQU #020B6 Effacer l'écran CSR M 
CMPT EQU #125B2 Heure actuelle en 1/512s CSR M 
» depuis Le 1 jan 0000 CSR W 
AFF1 EQU #2F494  Adr dans le buffer du CSR W Nanits Mr disses CÉCCCEC: 
* début de 00:00:00.00 P=P-1 Retranche à p 7 ou 
DSP EQU #2F478 Drapeaux d'affichage P=P-1 ajoute 9 à p 
KEYPTR  EQU #2F443  Pointeur buffer de touches P=P-1 p représente l'exposant:E 
SLEEP  EQU #006C2 Met la machine en attente P=P-1 
SETALR EQU #12917 Régler une alarme P=P-1 
DELAYT  EQU #2F948 Où est stockée la valeur P=P-1 
; de delay P=P-1 
ALMSRV  EQU #1257D Actualisation des alarmes LOU CSR W Décale C pour éliminer 
ATNFLG  EQU #2F442 Compteur de touches P=P+1 les 0 si E<5 
CKSREQ  EQU #00721 Controleur des timers GONC LOU 
RCDODT EQU #12A83 Rappel DO&D1 situés en R4 RTN C=Heure en 1/100s(entier) 
STDOD1 EQU #12A5C Sauvegarde DO&D1 dans R4 NIBHEX 00 
BLDDSP  EQU #01898 Construit l'affichage T2 GOSBVL STD0OD1 Sauvegarde de D0&D1 
# d'après le buffer P= 1 
FLOAT  EQU #1B322  Conv. déc ent./12digFloat C=P 2 Mise à 1 du 
STRHDR  EQU #0FO9A D0=(5) FLREG drapeau 60 
TRUNCC  EQU #12B4A  Conv 15dig/l2dig DATO=C XS 
EXPR EQU #0F23C Pour sortir de chrono$ GOTO OK 
DEBAFF  EQU #2F480 Add. debut buffer d'aff. NIBHEX 00 
CLRFRC  EQU #OC6F4  Efface la partie frac. T1 GOSBVL STDOD1 
DV2-12 EQU #OC4A8 Division de 2 nb C=0 XS 
FNRTNT  EQU #0F216 Pour sortir de chrono DO=(5) FLREG Mise à 0 du 
HXDCW  EQU #OECB4  Convs. hex/déc DATO=C XS drapeau 60 
IDIV EQU #OEC7B Divi. de 2 nb entiers OK SETHEX 
ENTRY T1 ST=1 8 raz du curseur 
CHAR  #F ST=1 5 Effacer l'écran 
ENTRY T2 GOSUB STOSTA Sauvegarde des drapeaux 
CHAR  #F P= 0 
KEY ! CHRONOS ! GOSBVL BSPCL?  Routine pour effacer 
TOKEN 100 D0O=(5) DEBAFF 
KEY ! CHRONO"! P= 0 
TOKEN 101 LCASC ‘onorhC ! Pour afficher 
ENDTXT DATO=C 14 
* Routine prise dans TIME DO=D0+ 14 la présentation 
TIME GOSBVL CMPT Lit l'heure en 1/512s LOASC." 202002": 
A=C W DATO=C 14 
C=0 W DO=D0+ 14 
P= 4 LCASC '00.00:0! Stocke la chaîne dans le 
LCHEX  2A3 C=24 Heures en 1/512s DATO=C 14 buffer d'affichage 
GOSBVL IDIV Divise l'heure depuis 0 DO=D0+ 14 
GOSBVL HXDCW par 24H & conv en déc. ST=1 6 Enlève Le curseur 
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ATEN 


ATT 


BOF 


BOUSO 


ST=0 
GOSUB 
GOSBVL 
C=0 
C=IN 
?2C=0 
GOYES 
C=IN 
?2C#0 
GOYES 
GOSUB 
R2=C 
GOSUB 
A=C 
C=R2 
A=A-C 
R1=A 
D1=(5) 
ASR 
ASR 

C= 
GOSUB 
D=C 
GOSUB 
R3=C 
GOSUB 
LCASC 
DAT1=C 
D1=D1+ 
A=R3 
GOSUB 
LCASC 
DAT1=C 
D1=D1+ 
C=D 
A=C 
GOSUB 
LCASC 
DAT1=C 
D1=D1+ 
A=R1 
GOSUB 
SETHEX 
ST=1 
ST=0 
GOSUB 
GOSBVL 
C=0 
C=IN 
2C#0 
GOYES 
GOTO 
SETHEX 
A=0 
ST=1 
ST=1 
GOSUB 
P= 


1 
STOSTA 
BLDDSP 
A 


ATEN 


ATT 
TIME 


TIME 


DV60 
W 
DV60 


ASCII 
1.1 
B 

è 


ASCII 
.1 
B 

2 

A 

À 
ASCII 


ASCII 


6 
1 
STOSTA 
BLDDSP 
À 


BOUSO 
BOF 


A 
) 
8 
STOSTA 
0 


Ecran non correct donc à 
refaire&construction 


Touche pressée ? 


Attend que La touche 
soit relachée 


Valeur initiale du temps 
Heure actuelle 


Rappel heure initiale 


Temps ecoulé WAIT10 
Affichage temps 
Eliminer les centièmes 
A=Min,B=Secondes 
A=hHeures,B=C=Min,D=Sec TESA 
Copie heures ds Le buffer 
Copie ‘:! ds Le buffer 
* 
Copie min ds le buffer 
INTER 
* BUT : 
* forme 
TEST 
Copie Les sec ds Le buffer 
* UT : 


Copie les centièmes 


Enlève le curseur 
Ecran non correct 


Afficher 


Touche pressée? 
Sort de La boucle 


Efface l'ecran 


GOSBVL 
DO=(5) 
A=0 
DATO=A 
SETDEC 
A=R1 
R2=A 
D1=(5) 
A=0 
A=DATI 
ASL 
?A=0 
GOYES 
LCHEX 
GOSBVL 
GOSBVL 
?2ST=1 
GOYES 
D1=(5) 
C=DATI 
?2C#0 
GOYES 
C=0 
C=IN 
?2C#0 
GOYES 
GOSBVL 
GONC 


GOSBVL 
GOTO 
GOTO 


BSPCL? 
KEYPTR 
XS 
XS 


DELAYT 
À 

B 

A 

À 

TEST 

4 
SETALR 
ALMSRV 
4 

TEST 
ATNFLG 
P 

P 

TEST 


A 
TESA 
SLEEP 
TEST 


CKSREQ 
WAIT10 
NOMB 





Effacer 


Vide Le buffer de touches 


temps 


Valeur du delay*32 
A=A*16(1/512s) 


Règle l'alarme 5 
avec la valeur dans A 
Actualisation des alarmes 


Si le temps est écoulé 
Touche pressée? 


Touche relachée? 


Machine en attente 
Sort si une touche a été 
pressée Lors de l'attente 
Controleur de timer 


teste le drapeau 60 pour voir sous quelle 
il faut envoyer le résultat 


DO=(5) 
C=DATO 
?2C#0 
GOYES 


FLREG 
XS 
XS 
INTER 


Fin fonction chrono 


construire La chaîne représentant Le 
* résultat(format=hh:mm:ss.cc) sur La math stack 


GOSBVL 
C=0 

P= 
LCHEX 
GOSBVL 
SETDEC 
A=R2 
GOSUB 
A=R2 
ASR 
ASR 
LCASC 
DAT1=C 
D1=D1+ 
C=A 
GOSUB 
D=C 
GOSUB 


RCDOD1 
A 

0 

16 
STRHDR 


TRA 


DV60 


DV60 


Assez de mémoire? 
Si oui,crée l'entête de La 
chaîne sur La Math Stack 


Ecrit les centièmes sur MS 


Elimine Les 
centièmes 


A=Minutes,B=Secondes 


A=Heures,B=C=-Minutes,D=Sec 
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CDEX A 


R3=A 

A=C A 
GOSUB TRA 
LOCASC ‘21! 
DATI=C B 
D1=D1+ 2 
CDEX A 
A=C B 
GOSUB TRA 
LCASC !:1 
DAT1=C B 
D1=D1+ 2 
A=R3 

GOSUB TRA 
D1=D1- 16 
D1=D1- 6 
D1=D1- 16 


GOVLNG EXPR 


Ecrit Les secondes sur MS 


Ecrit !':' sur MS 


Ecrit les minutes sur MS 


Ecrit Les secondes sur MS 


Replace D1 au debut 
de La math stack (MS) 
Fin de La fonction chrono$ 


* BUT : envoyer le temps en secondes sur la 
* Math Stack 


NOMB 


* BUT : 


STOSTA 


* BUT 
DV60 


* BUT : 


ASCII 


A=R2 

GOSBVL FLOAT 
C=A W 
C=C-1 X 
C=C-1 X 


GOSBVL RCDOD1 
GOVLNG FNRTN1 


Convs. déc/12dig 


Divise Le temps par 100 
pour faire app. Les sec. 


enregistrer les drapeaux d'affichage 
* puis lancer la routine d'affichage 


DO=(5) DSP 
C=ST 

DATO=C X 

RTN 

: Divise A par C 

P= 1 

C=0 W 

LCHEX 6 


GOVLNG IDIV 


Sauvegarde des 
status bits 


C=60 


Divise 


envoyer à l'espace memoire pointé par D1 
* La chaîne ASCII représentant les 2 premiers 

* chiffres de A(B) 
* A la sortie, la chaîne est en A 


Chr$(48)=1"0n" 


Premier chiffre 
Convertit en ASCII 
Décale Les 2 premiers 
quartets de la 


* représentation ASCII du premier chiffre de A 


P= 0 
LCHEX 30 
B=0 w 
B=A P 
B=B+C B 
BSL A 
BSL A 
ASR A 
B=A P 
B=B+C B 
A=B A 
DATI=A 4 
D1=D1+ 4 
RTN 
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Elimine le Îer chif. de A 
de même pour 

le deuxième 

chiffre 

Ecrit La chaîne 

en mémoire 





TRA P= 0 I 
B=0 W I inversion 
B= P I des 
BSL B I 2 
BSL X I premiers 
p= 2 I caractères 
A=B P I 
ASR X I 
GOTO ASCII 
END 





OUI OU NON ? 
IL FAUT CHOISIR ! 


Voici ma première proposition d'article pour JPC. II 
s’agit d’un petit Lex contenant la fonction YESNo. 


Il arrive en effet souvent qu’il faille, au cours d’un 
programme, répondre à une question par oui ou par 
non. Jusqu'à présent, cela se faisait à l’aide de 
diverses routines Basic, quelquefois en appelant la 
fonction KEYWAITS. Tant que cela n’apparaissait qu’une 
fois dans le Basic, pas de problème. Mais bien vite, il 
fallut faire un sous-programme faisant cela, 
sous-programme pouvant être appelé d’un autre 
sous-programme, ce qui prend du temps. 


Je décidais alors de remplacer ce sous-programme 
par la fonction YESNo. 


UTILISATION 


Afficher votre question (avec DISP) sans terminer la 
ligne d’affichage (terminer l’ordre DisP avec ";") et 
exécuter la fonction YEsNo. Cette fonction rajoute à la 
fin de votre question le message suivant : " ? Y/N". Le 
point d'interrogation est là pour préciser qu’il s’agit 
d’une question et les lettres Y/N pour préciser qu’il 
faut répondre uniquement par la lettre [Y] ou par la 
lettre IN]. Toute autre touche est sans effet, y compris 
la touche tATTN]. Une fois votre choix effectué les 
lettres Y/N sont remplacées soit par Yes, soit par No 
selon votre réponse, ceci afin que le HP-71 vous 
indique qu’il a accepté votre réponse. Tant que 
l'affichage n’est pas modifié, une trace de votre 
réponse subsistera ainsi. 


Voila pour ce premier Lex. La prochaine fois, j'espère 
pouvoir vous proposer une routine permettant 


d’otenir facilement des caractères soulignés à 
l'affichage. 
Jean-Yves Naour (313) 
LEX 'YESNOLEX ! 
ID #5C 
MSG 0 Pas de messages 
POLL 0 Pas de pollhandler 
* 
ATNFLG EQU #2F442 Drapeau ATTN 
BF2DSP EQU #01C0E Affichage d'1 buffer 
BLDDSP EQU #01898 Construction de l'affichage 
CKSREQ EQU #00721 Vérifie une requète 
CRLFOF EQU #02296  Termine l'affichage 
FNRTN2 EQU #0F219 Retour à BASIC 
POPBUF EQU #OÏ0EE Prend une touche du buffer 
SLEEP  EQU #OQ6C2 Mise en sommeil Léger 
KCN EQU #00022 Code de La touche !'N! 
kCY EQU #00006 Code de La touche !Y! 
F 
ENTRY yesno 
CHAR  #F C'est une fonction 
KEY 'YESNO' 
TOKEN 223 à vous de mettre Le bon 
ENDTXT 
NIBHEX 00 AUCUN paramètre 
yesno CDOEX Sauvegarde de DO 
RO=C dans RO 
CD1EX Sauvegarde de D1 
R1=C dans R1 
GOSUB popi Pour récupérer l'adresse de 
* la chaîne à afficher dans 
# la pile de retour 
NIBHEX B1 chr$(27) } 
NIBASC !>1 } curseur ON 
NIBASC ! ? Y/N' message à afficher 
NIBHEX B1 chr$(27) \ 
NIBASC 'D' | curseur 
NIBHEX B1 | 3 caractères 
NIBASC !D! | en arrière 
NIBHEX B1 | 
NIBASC !D! / 
NIBHEX B1 chr$(27) } 
NIBASC !<! } curseur off 
NIBHEX FF Marqueur de fin de chaîne 
* 
popl C=RSTK Adresse de chaîne dans C(A) 
GOSUB dsp Affichage de La chaine 


#* 


* Routine principale : 


mise en sommeil et attente 


* d'une touche ou d'une alarme ou autre (HPIL) 


* 


key? 


* 


GOSBVL 
GOC 


* 
* 


* 


GOSBVL 
C=0 
LC(2) 
?C=B 
GOYES 
LC(2) 
?C=B 
GOYES 


SLEEP 
srq? 


POPBUF 
A 

kcY 

A 

yes 
KCN 

A 

no 


Met Le 71 en sommeil léger 
Si aucune touche dans 
Le buffer de touche (le 
71 à été réveillé par 
autre chose qu'1 touche) 
Code de touche dans B(A) 
C(A) = 00000 
CCA) = 00006 
Touche pressée = !Y! 7? 
Oui 


: traiter touche 'Y! 


C(A) = 00022 
Touche pressée = !'N! 
Oui : traiter touche 'N'! 


* Il faut maintenant éviter tout effet indésirable 
* de La touche ATTN 
* de touche et attendre une nouvelle touche. 


* 


srq? 


* 


D1=(5) ATNFLG 


C=0 


W 


DATI=C W 
D1=D1+ 16 


DAT1=C 
GONC 


GOSBVL CKSREQ 


GOTO 


W 
key? 


key? 


: Purger tout Le tampon 


Adresse du tampon de touche 


B.E.T. 


Chercher qui réveilla Titan 
et retourner dormir 


* Traitement de La touche 'Y! 


* 
* 


* 


yes 


# *  *  *#  * 


ue : 
oO 


C=0 
C=C+1 
CSRC 
R2=C 
GOSUB 


* 


* 


NIBASC 
NIBHEX 


C=0 
R2=C 
GOSUB 


* 


* 


NIBASC 
NIBHEX 


“ 


w 
S 


pope 


Yes! 
FF 


a 


pop2 


INo 1 
FF 


- renvoyer 1 à BASIC 
- afficher 'Yes' à La place de 'Y/N' 


C(W) = 0000000000000000 
C(W) = 1000000000000000 
C(W) = 0100000000000000 


Résultat dans R2 
Pour avoir l'adresse 
du compte rendu 
à afficher 
Chaine à afficher 
Marqueur de fin de chaîne 


Traitement de La touche !'N!' : 
- renvoyer 0 à BASIC 
- remplacer !'Y/N' à l'affichage par 'No' 


C(W) = 000000000000000 
Résultat dans R2 
Pour avoir l'adresse 
du compte rendu 
à afficher 


Chaine à afficher 
Marqueur de fin de chaîïne 


* Affichage du compte-rendu et renvoi 


* 


de La réponse à BASIC 


“ 


* L'adresse de la chaîne à afficher est dans 


* 


* 


la pile de retour. Il ne reste plus 
qu'à l'afficher. 
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pop2  C=RSTK C(A) = adresse de La chaîne 
GOSUB dsp Pour affichage 
GOSBVL CRLFOF Termine ligne d'affichage 
C=R2 Récupérer résult. dans C(W) 
A=R1 Restaurer D1 
D1=A 
A=RO Restaurer DO 


GOVLNG FNRTN2 Envoi du résultat 
et retour à BASIC 
* 
* Routine d'affichage d'une chaîne pointée par C(A) 
dsp D1=C Adresse de chaîne dans D1 
GOSBVL BF2DSP Envoie La chaîne au display 
GOSBVL BLDDSP Construction de l'affichage 
RTNCC Retour 


END 


ENCORE DES DATES ! 


Vous vous rappelez certainement deux articles 
majeurs parus dans JPC. Il s’agissait de DATELEX, 
de Laurent Istria dans JPC 28 (octobre 1985). 
Quelques mois après, François Le Grand nous faisait 
part de ses «améliorations» dans JPC 31 (avril 1986). 


Las, Laurent nous avait présenté quelques fonctions 
de calcul sur les dates, mais sans respecter quelques 
points essentiels : 


- Il existe dans le HP-71 un format de dates reconnu 
par le système. Il s’agit de ‘“aaaa/mm/jj", ou 
"aa/mm/jj" en format alphanumérique, ou aajjj en 
format numérique. L'introduction d’un nouveau 
format, même s’il se référait à celui de la HP-41, ne 
faisait qu’accroître la confusion. 


- Quand un Lex doit renvoyer des messages, les 


concepteurs du HP-71 encouragent à utiliser les 
tables de messages. 


Par ailleurs, et c’est bien normal, quelques bogues 
subsistaient sur les vérifications de dates. Ainsi, des 
dates comme 117.041987, ou 117.001987 étaient 
considérées comme valides. Personne n’est parfait, 
même Laurent ! 


Notre excellent camarade François Le Grand nous à 
présenté une nouvelle version, qui ajoutait la fonction 
DATE+, et Ôtait du source les commentaires... 





Hélas, trois fois hélas ! Les noms de fonctions 
comportant des symboles tels que "+" sont refusés par 
Hewlett-Packard lors de l’homologation. Nous nous 
vimes donc refuser cette orthographe par les 
Laboratoires HP de Corvallis. 


La situation était grave. Cette anarchie ne pouvait 
plus régner. Munis de nos IDS, nous avons donc 
entrepris un ravalement général. Et voici le résultat 
aujourd’hui : 


UTILISATION 


Les dates peuvent être introduites de deux manières 
différentes : 


- format HP-71 ("aa/mm/jj", ou "aaaa/mm/jj"), par 
exemple "1789/07/14". 


- format HP-41 (jjmmaaaa où mm.jjaaaa), par 
exemple 14.071789. 


Les dates doivent être comprises entre le 15 octobre 
1582 et le 31 décembre 9999, 


Les fonctions disponibles sont : 


DMY change le format numérique en jj.mmaaaa 
(format européen). 


MDY change le format numérique en #71n.jjaaaa pour 
nos camarades américains. 


DOW (Day Of Week) renvoie la numéro du jour 
correspondant à la date donnée en paramètre, ou à la 
date courante si elle n’est pas spécifié. 0 correspond à 
dimanche, 1 à lundi... et 6 à samedi. 


Exemples : 


DOW("1789/07/14") -> 2 (mardi) 
DOW(14.071789) -> 2 si on est en mode DMY 
DOW(14.071789) -> "Invalid Arg! si mode MDY 


DOWS$ est la même fonction que précédemment, sauf 
que le résultat est le nom du jour et non son numéro. 
Ce nom est donné en anglais, et est traduisible par un 
Lex de traduction. La correspondance entre les noms 
anglais et les noms français est : 


Sunday Dimanche 
Monday Mardi 
Tuesday Mardi 
Wednesday Mercredi 
Thursday Jeudi 
Friday Vendredi 
Saturday Samedi 





Exemples : 


DOW$("1789/07/14") -> "Tuesday!" (mardi) 
DOW$(18.041987) -> "Saturday" (samedi) 


DDAYS renvoie le nombre de jours entre deux dates. 
pDAYS(d1,42) renvoie donc d1-d2. 


Exemples : 


DDAYS(18.041987,"1789/07/14") -> 72230 
DDAYS(31.121999,DATE$)*24*3600 -> ? 

faites ce dernier exemple en comparant avec l’horloge 
du Centre Georges Pompidou. 


DATEADD (autrefois DATE+) renvoie la date 
correspondant à la date donnée plus (ou moins) le 
nombre de jours spécifié. 


Exemples : 


DATEADD("1789/07/14",1) -> 15.071789 
DATEADD(18.041987,-1) -> 17.041987 


DATESTRS convertit une date au format numérique 
HP-41 (jjmmaaaa ou mm.jjaaaa) en format 
alphanumérique HP-71 ("aaaa/mm/jj"). Notez que 
l'année renvoyée est obligatoirement sur quatre 
chiffres, alors que DATES la renvoie sur deux. 


Exemples : 


DATESTR$S(14.071789) -> "1789/07/14" 
DATESTR$(DATES) -> l'année sur 4 chiffres 
DATESTR$("87/04/18") -> "1987/04/18" 


Vous pouvez déterminer par programme dans quel 
mode vous vous trouvez en testant l’état du flag -53 
qui nous a été alloué par HP. 


Flag = 1 : format DMY 
Flag = 0 : format MDY (par défaut) 


Nous vous laissons à vos calculs de dates... 


Pierre David (37) 
Janick Taillandier (246) 


LEX IDATELEX! 
* Premiere version : 
Laurent Istria 
Parue dans JPC 28, Octobre 1985 
Creation du Lex 
Mots-clefs DDAYS, DMY, DOW$, DOW, et MDY 


# * *# * 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Deuxieme version : 


Francois Legrand 

Parue dans JPC 35, Avril 1986 
Ajout de DATE+ 

Retrait des commentaires 

Non correction des defauts 


Troisieme version : 


Janick Taillandier & Pierre David 

16 au 18 Avril 1987 

Reconception complete du Lex 

Suppression du conflit de DATE+ par renommage 
en DATEADD 

Verification de La date corrigee (117.041987) 

Changement de La signification du flag fLDATE 
(1 = DMY, O = MDY) 

Ecriture des commentaires 

Creation de la table de messages pour DOWS 

Ajout du type de parametre alphanumer ique 
pour les dates (''aaaa/mm/jj" 

Ajout de 

DOW et DOW$ peuvent ne pas avoir de parametre 

Amelioration de la verification des dates, 
et correction de jj.991582, 
mm.00aaaa) 


ou “'aa/mm/jj") 
La fonction de conversion DATESTRS$ 


jj-00aaaa, et 


EQU #E1 
CON(2) =id 
CON(2) 50 
CON(2) 56 


CON(5) 0 

NIBHEX F 

REL(4) 1+TxTbSt 
REL(4) MSGTBL 
CON(5) 0 


* Main Table, triée par tokens 





CON(3) (TxEn02)-(TxTbSt) 
REL(5) =DATESe 

CON(1) #F 

CON(3) (TxEn01)-(TxTbSt) 
REL(5) =DATEAe 

CON(1) #F 

CON(3) (TxEn03)-(TxTbSt) 
REL(5) =DDAYSe 

CON(1) #F 

CON(3) (TxEn04)-(TxTbSt) 
REL(5) =DMYe 

CON(1) #D 

CON(3) (TxEn05)-(TxTbSt) 
REL(5) =DOW$e 

CON(1) #F 

CON(3) (TxEn06)-(TxTbSt) 
REL(5) =DOWe 

CON(1) #F 

CON(3) (TxEn07)-(TxTbSt) 
REL(5) =MDYe 

CON(1) #D 
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* Text Table, triée dans l'ordre alphabétique 


TxTbSt 
TxEn01 


TxEn02 


TxEn03 


TxEn04 


TxEn05 


TxEn06 


TxEn07 


fLDATE 
SDMY 
sDOW$ 


=ADHEAD 
=ARGERR 
=CMPT 
=DO=AVS 
=D=AVMS 
=DAYYMD 
=DRANGE 
=ERRMS$Sf 
=FLOAT 
=FNRTN1 
=FPOLL 
=FUNCD1 
=HXDCW 
=IDIV 
=NXTSTM 
=OUTELA 
=POPITR 
=POP1S 
=R3=D10 
=RNDAHX 
=SFLAG? 
=SFLAGC 
=SFLAGS 
=STKCHR 
=TBMSG$ 
=TODT 
=YMDDAY 


=pTRANS 


CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
NIBHEX 


EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
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13 
'DATEADD ! 
51 

15 
'DATESTRS! 
50 

9 
'DDAYS' 
52 

5 

'DMY! 
53 

7 
1DOWS! 
54 

5 

tDOW! 
25 

5 

'MDY! 
56 

1FF 


-53 Flag systeme pour la date 
0 Flag temporaire 
1 1 si DOW$, O si DOW 


#181B7 
#0BF19 
#125B2 
#09B2C 
#1A460 
#13335 
#1B076 
#09806 
#1B322 
#0F216 
#1250A 
#2F8C0 
#OECB4 
#OEC7B 
#08A48 
#05303 
#OE8FD 
#0BD38 
#03526 
#136CB 
#1364C 
#13601 
#135FA 
#18504 
#099AB 
#13229 
#13304 


#OO00EF 


STITLE TABLE DE MESSAGES 
* Le premier message de La table est un message 
* sans aucune signification. IL est La uniquement 
* pour satisfaire La contrainte du premier message 
* dans les tables. D'ou son nom. 


MBASE  EQU 
=eSUN  EQU 
=eMON  EQU 
=eTUE  EQU 
=eWED  EQU 
=eTHU  EQU 
=eFRI  EQU 
=eSAT  EQU 

bidon EQU 

BB16  EQU 


MSGTBL CON(2) 
CON(2) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
* Sunday 
CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 
* Monday 
CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 
* Tuesday 
CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 
* Wednesday 
CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 
* Thursday 
CON(2) 


8 

(MBASE )+0 
(MBASE )+1 
(MBASE »)+2 
(MBASE )+3 
(MBASE )+4 
(MBASE }+5 
(MBASE )+6 
(MBASE )+7 
16 


(MBASE }+0 
(MBASE }+7 


16 
bidon 


15 
=eMON 
2 
‘Mon! 
13 
BB16 
12 


17 
=eTUE 
3 
'Tues! 
13 
BB16 
12 


21 

=eWED 

: 
'Wednes! 
13 

BB16 

12 


19 


Sunday 
Monday 
Tueday 
Wednesday 
Thursday 
Friday 
Saturday 


day 


Lowest message # 
Highest message # 


Message # 15 


Message # 8 


Message # 9 


Message # 10 


Message # 11 





CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


* Friday 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


* Saturday 


* day 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBHEX 


=eTHU 
4 
‘Thurs! 
13 
BB16 
12 


Message # 12 


15 
=eFRI 
2 
Fri! 
13 
BB16 
12 


Message # 13 


19 
=eSAT 
4 
'Satur'! 
13 
BB16 
12 


Message # 14 


12 
BB16 
2 
‘day! 
12 
FF Table terminator 


Message # 16 


STITLE UTILITAIRES 


KÉRRRRRRRRRRRRRRRRRRRRÉRRRRRRERRRRRRRRRRERRRRRRRRRË 


* getdat 

* 

* But: obtenir une date sous un format utilisable 
* a partir d'un objet sur La Math Stack 

* Entree: 

# - Di = ” MS. 

* Sortie: 

* - A, B et C = numero du jour depuis le jour 0 
* - D1 reactualise 

* - ST(sDMY) = 1 si mode DMY, O0 si mode MDY 

* Abime: A-D, RO, R1, FUNCD1, ST(0), ST(8) 

* Niveaux: 3 

* Appelle: POPIR, POP1S, conv2, chk/, verdat 

* 


Algorithme: 


*+ 


DECODAGE : 


si type numerique 
alors 
x := IP(arg) ; 
y := IP(FP(arg)*100) ;: 
A := IP(FP(arg*100)*10000) ; 
si DMY 
alors 


MO OÙ OÙ Ù  Ù  #Ù  #  *  *  * 


OÙ OÙ OÙ OÙ OÙ OÙ OÙ OÙ OÙ OÙ OÙ OÙ HO OÙ OÙ #6  Ù  #  #  _*  * 





sinon 
D sy; 
Bis='xX : 
fin si : 
sinon (type alphanumer ique) 
p:=3; 
si arg$(p}="/" 
alors 
x := arg$(1,2) ; 
si x < 60 


alors A := 2000 + x : 
sinon À := 1900 + x ; 
fin si : 
sinon 
p:=5; 
A arg$(1,4) : 
fin si : 


si arg$(p) # "/1 alors erreur ; fin si : 

B := arg$(p+1,p+2) ; 

p := p+3 ; 

si arg$(p) # "/" alors erreur : fin si : 

D := arg$(p+1,p+2) : 

si il reste des caracteres alors erreur ; 
fin si :; 


VERIFICATION : 


Modifications: 


Ajout du parametre alphanumer ique 

Essayez 117.041987 avec l'ancienne version ! 
Separation du decodage et de La verification 
Ajout des commentaires 


Historique: 


85/10/ : L.I. 
87/04/16: J.T. & P.D. reconception & recodage 


KKKRKRKKKRERRKRERERERERRRRERRERRERRERERRERERRERERERRERRERRERRREREE 


* Lecture de fIDATE pour avoir Le mode DMY ou MDY 


* 


* 


* 


* 


* 


* En sortie de POPIR : 
A = 12 digits form 


* 


* 


getdat LC(2) 
GOSBVL =SFLAG? 


fIDATE 


En sortie de SFLAG? 


C(B) = flag number 


Cy = flag teste (1 si DMY, O si MDY) 


HEX mode 
P=0 
ST=1 sDMY Mode DMY par defaut 
GOC getd10 DMY, on ne change rien 
ST=0  sDMY pour les ricains ! 
Test du type 


getd10 A=DATI S 


A=A+1 S 
GOC getstr 


getnum GOSBVL =POPIR 


D1=D1+ 16 


DEC mode 
P= 0 
SETHEX 
Test du signe 


Signature de l'element 
Chaine = F ==> Cy := 1 


On passe Le reel 


Apres POPIR, P = ? 
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2A#0 S 


GOYES Ivarg 


* Test de l'exposant du nombre Lu. Il doit valoir 
* O0 ou 1. Le registre A a donc La forme suivante : 


* (exemple dans Le cas DMY) 
* 

* A(W) 
* A(W) 


0 jmmaaaa..... 000 
0 j jmmaaaa....001 
C=0 X 
2A=C  X 
GOYES getn20 
C=C+1 X 
2A#C  X 
GOYES Ivarg 
ASL W 
* On a dans A : 
* A(W) = jjmmaaaa........ 
* A(W) = mmjjaaaa........ si 
getn20 ASLC 
ASLC 
C=A B 
* ACW) = mmaaaa........ jj si 
* A(W) = jjaaaa........ mm si 
ASLC 
ASLC 
Si DMY 
A(B) 
C(B) 
Si MDY 
A(B) = j)j 
C(B) = mm 


mm 
jj 


M OÙ #4  #  *  #  * 


Si MDY alors ACEX B 
2ST=1 sDMY 
GOYES getn30 
ACEX B 


signe different de "+1 


ou encore 


MDY 


C(B) := jj (si DMY) 


DMY 


dans tous Les cas, A(W) = aaaa........ YYXX 


* quelque soit le mode, on a maintenant : 


* A(B) = mm 
* C(B) = j)j 
getn30 D=C B D(B) 


B=A B B(B) : 


* Reste a isoler la date dans 
A=0 A 
ASLC 
ASLC 
ASLC 
ASLC A(A) 


jj 


3 


AA) : 


:= 0aaaa 


* Nous avons donc maintenant : 


*  A(A) = Oaaaa 
*  B(B) 
*  D(B) 


mm 
jj 
GOTO verdat 
Ivarg GOTO  ivarg 
getstr GOSBVL =POP1S 
CD1EX 
C=C+A A C(A) 
D1=(5) =FUNCD1 
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:= * item suivant 


Sauvegarde de D1 


DATI1=C A 

D1=C D1 := ” debut de La chaine 
P= 5 

A=0 P 

P= 0 

ASRB AÇA) := longueur en octets 
C=0 À 

ST=1 8 8 caracteres pour la date 

LC(1) 8 

2A=C A 

GOYES gets10 

ST=0 8 10 caracteres pour la date 
LC(1) 10 

?A#C A 

GOYES Ivarg 


gets10 GOSUB 


conv2 convertit 2 caracteres 


* C(B) = l'annee (ou le siecle) 


?ST=1 
GOYES 


8 
gets20 


* L'annee est sur 4 chiffres, il faut Lire Les 
* deux derniers. 


A=0 
A=C 
ASL 
ASL 
RO=A 
GOSUB 
A=RO 
A=C 
GOTO 


W 

B 

A 

_ 

RO := 0000000000000aa00 

conv2 

B AÇW) := 00000000000008a8a 
gets50 


* L'annee est sur 2 chiffres. 
* si <60 alors 20aa 
. sinon 19aa 


gets20 A=0 
A=C 
C=0 
LCHEX 
?A<C 
GOYES 
LCHEX 
GONC 

gets30 LCHEX 

gets40 CSL 
CSL 
A=A+C 

gets50 RO=A 
GOSUB 
GOSUB 
R1=C 
GOSUB 
GOSUB 
D=C 

* restauration 
D1=(5) 
C=DAT1 
D1=C 

* restauration 
C=R1 


W 

B 

A 

60 

B 
gets30 
19 
gets40 
20 

ñ 

ä 


“ A(W) := 000000000000aaaa 


chk/ 
conv2 C(B) : 


3 


chk/ 

conv2 

B D(B) : 
de D1 

=FUNCD1 

A 


jj 


du mois et de l'annee 
C(B) := mm 


B=C B B(B) := mm 
A=RO A(A) := Oaaaa 


* Attention. Le code continue !1!1 


KKKKKKHEEREREREREREREREREREREEREREERERERRERERERREREEREREER 


* 


* 


ÆÙ OÙ 6 OÙ ÆÙ OÙ OÙ OÙ OÙ OÙ OÙ OÙ Ù OÙ OÙ OÙ OÙ 6 OÙ OÙ 6 OÙ OÙ OÙ OÙ 6 OÙ 6% 6 6 6 OÙ 6% #6 Ù OÙ Ù  Ù OÙ Ù  #  #  *  * 


verdat 


But: verifier la validite d'une date 
Entree: 


- A(A) = Oaaaa 

- B(B) = mm 

- D(B) = jj 
Sortie: 


- À, B et C = numero du jour depuis Le jour 0 
- HEX 
- P=0 
Abime: A-D 
Niveaux: 2 
Appelle: YMDDAY 
Algorithme: 
erreur si j=0 :; 
erreur si m=0 ; 
erreur si a<1582 : 
erreur si m12 ; 
si a>1582 
alors 
si m#2 
alors 
jmax := dernier jour du mois ; 
erreur si j>jmax : 
(date valide) 
sinon 
erreur si j>29 ; 
si j=29 
alors 
erreur si a non divisible par 4 ; 
si a divisible par 100 
alors 
erreur si non divis. par 400; 
fin si :; 
fin si : 
fin -S1-: 
sinon (annee = 1582) 
erreur si m<10 : 
erreur si m=10 et j<15 : 
jmax := dernier jour du mois ; 
erreur si j>jmax :; 
(date valide) 
finale 


Modifications: 
separation logique du reste du sous programme 
eclaircissement de l'algorithme 
tests corrects pour 01.991582 (DMY) 
tests corrects pour j = 0 ou m = 0 
Historique: 
87/04/18: J.T. & P.D. conception & codage 


KKKKKEKERREEEERERRERRERERRRRRRRRRRRRRERRRRÉRRRÉERÉRÉRÉÉÉ 


* erreur si mois = 0 :; 
verdat ?B=0 B 

GOYES erreur 
* erreur si jour = 0 : 

?2D=-0 B 

GOYES erreur 
* erreur si mois > 12 ; 

LCHEX 12 

?7B>C B 

GOYES erreur 
* erreur si annee < 1582 :; 

LCHEX 01582 

2A<C A 

GOYES erreur 
* si annee > 1582 


?2A=C A 
GOYES verd50 annee = 1582 
alors 
: si mois # 2 
* alors verification normale 
LCHEX 02 Fevrier 
2C#B B 
GOYES verd/70 mois normal 
” sinon (mois = fevrier) 
de erreur si jour > 29 ;: 
LCHEX 29 
?2D>C B 
GOYES erreur 
si jour # 29 
alors ok 
?D#C B 
GOYES verd99 Ok, jour dans [1..28] 
sinon 
erreur si a non divisible par 4 ; 
C=A À 
SB=0 Attention ! 
CSRB 
CSRB 
?SB=0 


GOYES verd20 
erreur GOTO  ivarg 
oi erreur si a non divisible par 400 ; 
verd20 ?A#0 B 


GOYES verd99 Ok, non divisible par 100 


C=A ñ 
CSR E 
CSR ue C(B) := siecle 
SB=0 inutile ? 
CSRB 
CSRB 
2SB=0 
GOYES verd99 Ok, divisible par 400 
GONC erreur  B.E.T. 
+ fins: : 
* (annee 1582) 
F erreur si mois < octobre 
verd50 LCHEX 10 Octobre 
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?2B<C B 
GOYES erreur 

* erreur si mois = 10 et jour < 15 ; 
2B#C B 
GOYES verd70 mois normal 
LCHEX 15 
?2D<C B 


GOYES erreur 
* Attention ! Le code continue ! 
* (mois normal) 
* jmax := dernier jour du mois 
verd70 C=B B 


RO=C Sauvegarde du mois 
LCHEX 07 
?2B<=C B 
GOYES verd80 
SETDEC 
B=B+1 B 
SETHEX 

verd80 LCHEX 01 
B=B&C B B := bit de poids faible 
LCHEX 30 
C=C+B B C(B) := jmax 

* erreur si jour > jmax ; 
2D>C B 
GOYES erreur 
C=RO sauvegarde du mois 
B=C B 

* Ok, c'est bon 

verd99 C=A A 
A=0 W 
A=C A 
C=B B 
B=0 W 
B=C B 
C=D B 
D=0 W 
D=C B 


GOVLNG =YMDDAY 


KKKKKKRERRERERRRRRRRRRARRRRRRRRRERRRRRRRRRERERRRÉEEÉÉ 


conv2 


But: convertir deux caracteres en deux chiffres 
BCD. 
Entree: 
“ Di = * MS. 
Sortie: 
- C(B) = valeur lue et convertie 
- D1 actualise 
Abime: A, B(B), C 
Niveaux: 2 
Appelle: convi, DRANGE 
Historique: 
87/04/17: J.T. & P.D. conception & codage 
RARE RÉRRERRRRRRRRRRRRRRRRRRRRERERERRRERERRRRERRRRERÉÉÉ 
conv2 GOSUB convi 
B=A B 
GOSUB convi 


Æ OÙ OÙ OÙ 6 6 #6  #  #  #%  *  * x 


poids fort 
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C=B B 
CSL B 
C=A+C B 
RTN 
convi D1=D1- 2 
A=DAT1 B 
GOSBVL =DRANGE 
GOC ivarg byte not in range 
LCASC 'O! 
A=A-C B A(B) = Od (d = 1..9) 
RTN 
KKKKKERKRRRRERARRRRRRRREREREREREREREARERERARERREREUEÉ 
* chk/ 
* 


* But: verifier que Le caractere courant est bien 
* un slash. 
* Entree: 
* ss D1= "MS. 
* Sortie: 
* - si le caractere etait bien un "/", D1 est 
® reactualise 
* - sinon erreur 
* Abime: A(B), C(B) 
* Niveaux: 0 
* Historique: 
* 87/04/17: J.T. & P.D. conception & codage 
KKRKKRRRKRRRRERRRERERRRRÉRRÉRRRRERRÉRÉRRRERRÉMMÉ UHR HR He 
chk/  D1=D1- 2 
A=DAT1 B 
LCASC !/! 
7A=C B 
RTNYES 
ivarg GOVLNG =ARGERR 


KkKK Ke de he de he he de he he ee he ee ee ee ee he he ee he ee he ee he ee ee ee ee ee ee de ee 


* send2 
* 
But: fonction inverse de conv2 : envoie 2 
chiffres BCD sur La M.S. en ASCII 
Entree: 
Di =" MS. 
- D(A) = AVMEMS 
- A(B) = les deux chiffres en BCD 
Sortie: 
- D1 reactualise 
Abime: C(B) 
Niveaux: 2 
Appelle: STKCHR 
Historique: 
87/04/17: J.T. & P.D. conception & codage 


KAKRRRRRRRRRRRRRRRARRRRRRRRRRRRERRRRRERRERRRRRRRREÉ 


HOMO OÙ Ù  Ù  Ù  Ù  * * + 


send2 ASRC 
GOSUB sendi 
ASLC 

send1 LCASC ‘O0! 
C=A P 


stkchr GOVLNG =STKCHR 


STITLE LES ORDRES BASIC 


KKRRKRRRARARERÉRRÉRRRRRRERRERERERERERERERRERRRRRRRAR 


* DATESTR$ 

* 

* But: renvoyer La date alphanumerique au format 
HP71 ("aaaa/mm/jj"}) a partir de la date au 
format numerique jj.mmaaaa ou mm. j jaaaaa 

Note: La date renvoyee par DATES est de La forme 
“aa/mm/jj". La date renvoyee par DATESTR$ est 
de La forme “aaaa/mm/jj". DATESTR$(DATES) 
convertit donc une date !"'aa!! en date "aaaa". 

Syntaxe: DATESTR$ ( <date> ) 

Detail: fonction nécessaire pour passer du 
format "utilisateur" au format "machine!. 

* Historique: 

* 87/04/17: P.D. & J.T. conception & codage 

KARRRERRRRRRRRRRERERERERREERRERERRERERERRRÉÉRRRRRRÉÉ 

CON(1) 8+4 
NIBHEX 11 
=DATESe GOSUB getdat 

* A, B, C = date au format interne 

GOSBVL =DAYYMD 


6 OÙ OÙ Ù 


alpha ou num 1er param. 
2 parametres obligatoires 


SETHEX 
P= 0 
* A(3-0) = aaaa 
* B(B) = mm 
* D(B) = jj 
RO=A RO := annee 
C=B B 
R2=C R2 := mois 
C=D B 
R3=C R3 := jour 
GOSBVL =D=AVMS ne modifie pas A(W) 
R1=C R1 := * bottom of M.S. 
ASR 1 
ASR A A(B) := siecle 
GOSUB send2 
A=RO A(B) := annee 
GOSUB send2 
LCASC 17! 
GOSUB stkchr 
A=R2 A(B) := mois 
GOSUB send2 
LCASC !/! 
GOSUB stkchr 
A=R3 A(B) := jour 
GOSUB send2 
ST=0 0 No return desired 


GOVLNG =ADHEAD 


KRRRARARERRERERERERERRERRRRRRERRERRRRRRRRRRRRRRRRRRRR 


DATEADD 


But: renvoyer La date correspondant a : date +n 
Syntaxe: DATEADD ( <date> , <n> ) 
Modifications: 

Ajout du parametre de type alpha 

Ajout des commentaires 

Clarification du code 

Extension des dates jusqu'au 31/12/9999 


# OÙ # # * * * # * 








* Historique: 
*  86/03/ : F.D. 
* 87/04/17: P.D. & J.T. reconception & recodage 
KAKEKERRERRRERRREREERERERERRERERERERREREREREERERRERERRRRRRRERÉE 
CON(1) 8 num 
CON(1) 8+4 
NIBHEX 22 
=DATEAe GOSBVL =RNDAHX 
* Ce n'est pourtant pas si dur d'utiliser les 
* registres dans leur totalite. 
C=0 W 
C=A Â 
GOC DTAD10 
* Parametre negatif 


2eme param. 
alpha ou num 1er param. 
2 parametres obligatoires 


C=-C A 

C=-C WW parametre negatif sur 16 q. 
DTAD10 D1=D1+ 16 

R3=C R3 :=n 

GOSUB getdat 

C=R3 

C=A+C W C(W) := date +n 


* Attention ! le code continue 
RRRRRRRRRRRRRRRRRRRERRRRERRERERERRRRRRRRERRERRRRRRERREÉEE 


rtndat 

But: convertir une date en format interne (nb de 
jours depuis le 1er janvier 0) en reel au 
format jj.mmaaaa (ou mm.jjaaaa), et retourner 
a Basic. 

Entree: 


- C(W) = date au format interne 

- ST(sDMY) indique Le format (DMY ou MDY) 
Sortie: par FNRTN1 
Appelle: DAYYMD 
Historique: 

87/04/17: P.D. & J.T. conception & codage 


KKRHRRRERREREREEEREREREREEREERRRERERERRRRRRRRRRRRRRRERÉÉÉ 


rtndat GOSBVL =DAYYMD 


NO OÙ Ù  Ù  Ù  Ù  Ù  #  *  #  *#  *#  _*# 


* À = aaaa 
* B = mm 
“D = j) 
?2ST=1 SsDMY 
GOYES DTAD20 
C=B B C := mm 
DCEX B D := mm; C:= j)j 
B=C B B := j)j 
DTAD20 
* Le nombre que l'on devra retourner doit etre de 
* [a forme : 
*  Oddbbaaaa0000001 ou 
*  Odbbaaaa00000000 si dd<10 
* (dd = D(B), bb = B(B), aaaa = A(3-0)) 
C=A À 
A=0 W 
P= 4 
A=C WP 
P= 0 


* A(W) = 000000000000aaaa 
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ASRC 
| ASRC 

ASRC 
ASRC 

* A(W) = aaaa000000000000 
A=B B 
ASRC 
ASRC 

* A(W) = bbaaaa0000000000 
LCHEX 10 
DCEX B D := 10 ; C(B) := dd 
A=C B A(W) := bbaaaa00000000dd 
?2C<D B dd < 10 


GOYES rtnd10 un seul shift, Cy := 1 
* deux shifts, Cy := 0 
ASRC 
rtnd10 ASRC 
ASR W 
* A(W) = Odbbaaaa00000000 
* A(W) = Oddbbaaaa0000000 
GOC rtnd20 
A=A+1 X 
rtnd20 C=A W 
GOTO fnrtni 


KARERRRRRÉRÉRRRRRRRRRRRARRRRERRARÉRRRRRRRREEÉERÉ RÉ É 


DDDAYS 


* 

* 

* But: renvoyer date1-date2 

* Syntaxe: DDAYS ( <date1> , <date2> ) 

* Modifications: 

* Ajout des parametres de type alpha 

* Ajout des commentaires 

* Historique: 

* -6f107 : L.I. 

* 87/04/17: P.D. & J.T. reconception & recodage 


KÉAKKRKRKRRRRRRRRRRERRRERRERERERRRRRRERRRERRRRERERRRRERÉÉÉAË 


CON(1) 8+4 alpha ou num 
CON(1) 8+4 alpha ou num 
NIBHEX 22 2 parametres obligatoires 
=DDAYSe GOSUB getdat 
R3=A R3 := date2 
GOSUB getdat 
C=R3 
* A(W) = date, C(W) = date2 
D=0 S signe := +1 
?A>=C VW datel >= date2 
GOYES DDAY10 oui : ok 
L signe nu 
ACEX W non : on echange 
SETDEC 
D=-D-1 S et signe := "-1 
SETHEX 
DDAY10 C=A-C W C(W) := datel - date2 


GOSBVL =HXDCW full word hex-dec conv. 
GOSBVL =FLOAT AW) = resultat, mode DEC 
C=A W 

C=D S 
GOTO  fnrtnl 


C(S) := signe 


KRKRKRRRRRRRRRRRRÉRERRRERRRRRRRRRRRRRRRERERRRRRRRRRRÉ 


* DOWS 

* 

* But: renvoyer le nom du jour 
* Syntaxe: DOW$ ( [ <date> ] ) 
* Modifications: 

* Ajout du parametre de type alpha 
*  Parametre optionnel = date d'aujourd'hui 

* Ajout des commentaires 

* Nom des jours en messages 

* Historique: 

OM SLT 

* 87/04/17: P.D. & J.T. reconception & recodage 


KKKRRRRRRRRRERRRRRRERERRRRRRRRRRRRRRRERRRERRR RÉ É RÉ 


CON(1) 8+4 alpha ou num 

NIBHEX 01 1 parametre optionnel 
=DOW$e ST=1 sDOW$ 

GOTO  DOWOO 


KKKKERRRÉRRRRRRRÉRERÉÉMRRUEMRM RH He de RH de Re M 


DOW 


But: renvoyer le numero du jour 
Syntaxe: DOW ( [ <date> ] ) 
Modifications: 
Ajout du parametre de type alpha 
Parametre optionnel = date d'aujourd'hui 
Ajout des commentaires 
Historique: 
30 2 LE, 
87/04/17: P.D. & J.T. reconception & recodage 
KKKRRARRRRRRRÉRRRRRERERRRMR RH he de he he he he he he he he ee de de de de de dc de 
CON(1) 8+4 
NIBHEX 01 
=DOWe ST=0  sDOWS 
* Algorithme : 
si nb parametre = 1 
alors decoder la date 
sinon obtenir La date d'ajourd'hui 
fin si : 
jour := (date - 1) mod 7 
DOWOO ?C#0 S 
GOYES DOW10 
* Sauvegarde temporaire de DO et D1 
CD1EX 
RSTK=C 
CDOEX 
RSTK=C 
CSTEX 
R3=C 
GOSBVL =CMPT C = R1 := current time 
* Restauration de DO et D1 apres Le monstre CMPT 
C=R3 
CSTEX 
C=RSTK 
DO=C 
C=RSTK 
D1=C 
* Et on reprend le cours de nos investigations... 


OO OO 6 6 #6 #4  #  *#  _ # 


alpha ou num 
1 parametre optionnel 


# *#  *  * 


* 





C=R1 


CSR W 

CSR W 

CSRB C / 512 (in seconds) 
GOSBVL =TODT A = day number 

P= 0 

GOTO  DOW20 


DOW10 GOSUB getdat 
DOW20 A=A-1 


C=0 W 
LC(1) 7 
GOSBVL =IDIV C := a-1 mod 7 
P= 0 
* C(0) = numero du jour (0:dimanche ... 6:samedi) 
?2ST=1 sDOW$ 


GOYES DOW30 
* Sortie numerique 
CSRC 
CSRC C(14) := a-1 mod 7 
fnrtn1 GOVLNG =FNRTN1 
* Sortie alphanumerique 


DOW30 A=C à ACA) := numero du jour 
LC(5) (=id)-(=esSUN) 
C=C+A A C(A) := numero du message 
RO=C 


* Pompe dans les IDS I, page 17-60, d'apres MSG$ 
GOSBVL =R3=-D10 Sauver D1 et DO 
GOSBVL =FPOLL 
CON(2) =pTRANS 
GOSBVL =DO=AVS DO := (AVMEMS) 
C=RO 
GOSBVL =TBMSGS 
GOVLNG =ERRM$Sf Et c'est supporte !11 
* Fin du pompage... 


KKKKKKRKEKRRRERRRERRRRRERRRKRRERRKRERERERRRERERERRRRRARÉRRÉAÉ 


* DMY 

* 

* But: passer en mode jj.mmaaaa 
* Syntaxe: DMY 

Modifications: 


x 


* Utilisation de routines supportees 
* Historique: 
"Dar TON. 2 41, 
* 87/04/17: P.D. & J.T. reconception & recodage 
RARKRKRRRERRRRÉRRRERRERERRRERRRRRRRRREREREREEERREREREE 
REL(5) =DMYd 
REL(5) =DMYp 
=DMYe  LC(2) =flDATE 
GOSBVL =SFLAGS Set system flag 
GONC  nxtstm  B.E.T. 


KKAKKKKKKRRRRKRRRERRRRRERRERRRRRRRRRRRRRRRRRRRRRRRERRRREX 


MDY 


But: passer en mode mm. j jaaaa 
Syntaxe: MDY 
Modifications: 

Utilisation de routines supportees 
Historique: 


#  %  #  *  *  * + 


©. SYI0f Er : 
* 87/04/17: P.D. & J.T. reconception & recodage 
KKKKKKEKEREEEKEREEKEREKEREEREKEREREHREREERERRRRRRERARÉÉË 
REL(5) =MDYd 
REL(5) =MDYp 
=MDYe LC(2) =flDATE 
GOSBVL =SFLAGC Clear system flag 
nxtstm GOVLNG =NXTSTM 


=DMYp 

=MDYp  RTNCC 

=DMYd 

=MDYd  GOVLNG =OUTELA 


END 
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CHOC EN RETOUR 
DERIVEE SYMBOLIQUE 
(ACTE I TER) 


Le programme DIFF paru dans JPC 44 contenait 
malheureusement d’autres fautes que celles signalées 
par Dominique Marcaillou dans JPC 47. 


Au total, il y a 3 formules de dérivées fausses. 


ligne 910: f(x) =sqr(x) 
lire F1$='2*SQR('&U$&' )' au lieu de : 
F1$=1.5*SOR('&US&! )! 


ligne 1010: f(x) = acosh(x) 
lire F1$='SQR('&FNKS(US,5)&1"2-1)! au lieu de : 
F1$=!SQR(1-'&FNKS(US,5)8&!"2)! 


ligne 1040: f(x) = acoth(x) 
lire F1$=11-'&FNK$S(US,5)8&'"2: au lieu de : 
F1$=11+18&FNK$(US,5)&! "2! 


La fonction ATAN renvoie l’erreur PARENTHESIS OMITTED. 
Pour y remédier, il faut corriger la ligne 940 avec : 
F1$=1(1+'&FNK$(US,5)&'"2)'! (oubli de la première 
parenthèse). 


Voilà pour les erreurs bénignes. 


Le programme reste cependant bogué car il accepte 
des expressions du type S(x), SI(x), FACT(x). qu’il 
dérive sous la forme: -1/... 

De plus la dérivée de u(x})" est fausse. Qui sait où se 
trouve l'erreur (le programme est très compliqué à 
suivre ) ? Quelqu'un ne pourrait-il pas en donner un 
organigramme ? On pourrait alors passer à l’acte IL... 


Thierry Besançon (292) 


CATALOGUE DES 
MEMOIRES DE MASSE 


Je vous avais proposé, il y a quelques temps, un 
programme pour imprimer le catalogue des mémoires 
de masse. 
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CCAT était assez lent, disons-le, pour les fichiers de 
masse. Les séquences HP-IL y faisaient défaut. 


Michel Martinet ayant créé les fontions pour lire 
directement les pistes, sans utiliser les SEND, j'ai donc 
repris le tout en y incluant d’autres fonctions, et 
surtout celles de structures (super) qui vous 
permettront de rajouter tous les codes vous 
intéressant et n'étant pas traités ici, et cela sans avoir 
à tout remanier. 


Ainsi, les fichiers BIN et SDATA étant absents, à 
vous de travailler s’ils vous sont utiles. De même pour 
les fichiers pour 41, 75 ou futurs fichiers. 


Venons en au programme : 


On a le choix entre 3 fichiers (FMAIN, FPORT, 
FTAPE) 

- FPORT vous en demande le numéro 

- FTAPE sélection du support entre 2 (au cas où) 

- FMAIN (pas d'option prévue) 


Si le fichier voulu existe déjà, Q > un nouveau ? 


- Si différent de "N" on construit le fichier "N", ou fin 
de construction fichier, choix du mode clavier 
Imprimante Video Echange Quitter. Echange remplace 
FTAPE du support avec celui/71 et retour question 
choix de mode. 


Et on s'arrête proprement en appuyant sur [0]. 


Voilà, il vous faudra alors environ 2 minutes et 30 
sccondes pour 250 fichiers d’une disquette double 
face. 


On peut regretter de ne pas disposer de fonction de 
tri alphanumérique qui permettrait d’étendre les 
options sur la taille, le type. Mais on peut parier que 
cette petite merveille verra le jour. 


Pour fonctionner, ce programme fait appel à des SUB, 
qui sont numérotes de la ligne 6010 à 6300. 


Maintenant, une question perfide : il y a t-il un (ou 
des) volontaires pour m’expliquer comment transférer 
données et fichiers avec l'interface HPIL/RS232 entre 
71 et un autre ordinateur ? Tout listing sera 
évidemment le bienvenu. 


A vous de decoder maintenant 


Gérard Kossmann (244) 


Programme "LEXPOKE" (rentrer un Lhex sur le HP-75, necessite ROM 1/0 et Le Lex PEEKPOKE) 


DIM A$[256] ! LEXPOKE adapté de HPCC/Datafile V3N6P5 

INPUT ‘Fichier Txt source: !': F$ Q IF F$=!! THEN CAT ALL à GOTO 2 
DISP ‘Verif. CHKSUMS en cours" 

ASSIGN # 1 TO F$ à A$S=FNA$(1) à L1=LASTLN?(F$) 
L=HTD(HEXS(REVS(AS[(3,4]))) à T$=A$[6,6] 

A1$='rxelpent! 

FOR 1=1 TO 7 à IF FLAG?(A$[5,5],8-1) THEN A1$[I1,1J]=UPRCS(A1$[I,1]) 
NEXT I 

C2=0 à Y=1 à IF NOT POS('TALWB',T$) THEN DO ERROR 68 

FOR 1=1 TO L1-1 Q A$=FNAS$(I) à C1=0 

FOR B=1 TO LEN(A$S)-1 à B1=NUM(A$[B]) à C1=MOD(C1+B1,255) à C2=-MOD(C2+B1,65535) à NEXT B 
IF C1=NUM(AS$S[B]) THEN NEXT I ELSE 23 

IF C2>32767 THEN C2=C2-65536 

IF C2#HTD(HEXS(FNAS(I))) THEN 25 

F1$=F$[L1,LEN(F$)-1] à DISP ‘Creation LEX : '&F1$ 
D=HTDÇ(CREATES(F1$,17$,A1$,L)) 

DISP 'POKE en cours! @ R=18 

FOR 1=1 TO L1-Y à AS=FNAS(I) 

Q=LEN(AS)-Y à IF R=0O THEN 21 

IF R>Q THEN R=R-Q @ NEXT I ELSE A$=A$[R+1] à R=0 à GOTO 19 

APOKE DTH$(D),A$[1,Q] à D=D+Q à NEXT I 

BEEP à DISP 'Termine' @ END 

INPUT ‘Presence Chksms ?','0!';: A1$ Q Y=POS(UPRC$(A1$), 0!) 

2& IF NOT Y THEN 15 

25 EDIT F$ à DISP 'Ligne';:1;:': ERR verif.' @ BEEP Q STOP à GOTO 10 


— 
© O0 © + OO UT F NW NO — 


DU NN NN = > > — — — — 
NO NO = © O0 © M OO UT F WW M 


26 DEF FNAS(X) 
27 READ # 1,X ; A$ @Q FNA$S=ASCS(MAP$(! !,'!,A$)) à END DEF 


KKKKKREKREREREKRERRRERRERRERRRRRERERRRRERERRERRRRRRRRRERRRRRRRRERRERRRERRREEEREEREREREEERRRERERRRERREREELEAUUË 


Programme "LEXDUMP" (imprimer un Lhex sur Le HP-75, necessite ROM 1/0 et le Lex PEEKPOKE) 


DIM AS[256],D$160] ! LXDUMP75 (adapté de DATAFILE V3N6P4) 

W=12 à R$,D$=" ! à FOR 1=1 TO W+W/2-4 à D$=D$&!-" Q NEXT 1! 

INPUT "Nom LEX ? M:F$ @ F$S=LEFTS(F$,8) à 1=-31414 

B$=APEEKS(DTH$S(1),18) à IF B$[1,2]='! THEN DISP F$&! non trouve!: à GOTO 3 

IF B$[11]#F$ THEN 1=1+18 Q GOTO 4 

A=HTDC(HEXS(REVS(BS$S[1,21))) à AS$=B$S&APEEKS(DTH$(A),18) à A=A+18 

1,K,C1,C2=0 à L1=1 à L=HTD(HEXS(REVS(AS[(3,4])))+18 
R=HTD(HEXS(REVS(A$(19,20]1))) à IF A$[(6,6]='L' THEN R$=! ROM ID: !'&STRS(R) 
PRINT F$;:! :&B$[16,6];L;' Octets '&R$ @Q PRINT 

PRINT 'Ligne'&D$&! Data'&D$&!' Check! @ PRINT 

K=1 Q FOR J=1 TO L à I=1+1 à IF 1=37 THEN 1=1 àQ A$=APEEKS(DTH$S(A),36) à A=A+36 
IF MOD(J,W)=1 THEN PRINT USING '3d,a! ; L1;' !; @ L1=L1+1 à C1=0 

B1=NUM(AS(I]) @ PRINT FNH$(B1); 

C1=MOD(C1+B1,255) à C2=MOD(C2+B1,65535) à IF NOT MOD(J,W) THEN PRINT ! !';FNH$(C1) 
NEXT J @ IF NOT MOD(L,W) THEN 18 

FOR 1=1 TO W-MOD(L,W) à PRINT ! 1‘: @ NEXT I! @ PRINT ! !':FNH$(C1) 

IF C2>32767 THEN C2=C2-65536 

PRINT USING '3d,2x,k' ; L1,DTH$(C2) 

PRINT à END 


—» À 
OO ® MN OU FF WW PO — 


NO > ù ù —Ù à à —» 
OO OO © + OO OU FF WW M 
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21 DEF FNH$SCX) = ! '&HEXS(CHR$S(X)) 


RRRRRRRRRR RU HR RH RER HE ee ee he eee ee He ee eee ee he ee eee eee eee ee eee eee ee ee ee eee ee ee ee Ge ee de 


Programme "CAT"! (imprimez vos catalogues) 


Les Lex utilisés: 
STRUCT1/SHRINK/FORMALEX/PRINTLEX/KEYWAIT/EDLEX/MMLEX/RWLEX/DESAL/ 

Tous Les codes ou caractères sont indiqués, pour l'édition du journal 
pour La lisibilité, et sauf quand c'est dû à un calcul, vous avez tout 
intérêt à Les supprimer (La chasse est ouverte) FIND est prévu pour !1! 
Vous trouverez inclus des affectations de touches pour mémoire, afin de 
vous faciliter Les "manip", surtout "F(" permettant de reprendre Le 
contenu d'une ligne,pour l'accoler à une autre, etc. 

Deux details qui ont leur importance : 

1)N'oubliez SURTOUT PAS apres un WHILE d'ecrire Le END WHILE ou alors 
vous aurez,assez souvent,droit un MEMORY LOST (tres chatouilleuse La 71) 
2)Si vous voulez visualiser debut et fin de WHILE utiliser REM et non “in 
ou vous vous resignerez a la longue a faire INIT 3 


510 SUB CAT à BEEP 30,.2 
520 DIM K$[5]1,E1$(6],N$1121,C$132],T$ [80] ,M$ [50] ,E$ [256] ,P$[34] 
530 E1$=ESCHRMENRESCHENZMECHRE( 1 )ECHRS(2) 
540 INTEGER B,C,E,F,I,L,N,Q,T,11,M1,M2,V1 à REAL P,S 
- SELECTION DU CATALOGUE 


1010 WHILE 1 Q REM ------------..ss eco ceconmnnsnsssssssssssss 1 
1020 LC OFF à CALL PERI(M1,M2,11,V1) à M$="[" à CFLAG O0 9 N=0 ! 1 
1030 DISP E1$;"main1 port2 tape3 ?[": à K$=KEYWAIT$ à DISP K$ ! 1 
1040 IF NOT POS("23",K$) THEN N$=":MAIN" ! 1 
1050 IF K$="2n THEN N$=":PORT(" à INPUT “port£N} 2[","5":p à NS=NS&STRS(P)&" 
1060 WHILE K$="31 Q REM ---------------......-..................e. a 1 
1070 IF M1#-1 THEN N$=":TAPE" Q N=1 ELSE CALL ERMAS à END ! a 
1080 IF M2=-1 THEN LEAVE à REM a 1 
1090 REPEAT à REM -----------------...-.........-....-............... baï1 
1100 BEEP à DISP "2 Supports ":CAT$(1,N$)[1,10]; "choix O/N 2{": 1! ba 
1110 K$=KEYWAITS à DISP K$ ! baï 
1120 UNTIL POSC!ON",K$) @ REM ------------------.---.--.............. baï 
1130 IF K$="N" THEN N=2 @ NS=N$&"(2)" à LEAVE à REM ai 
1140 END WHILE @ REM -------------------........................csse a 1 


- LE CATALOGUE EXISTE DEJA , FAUT-IL EN CREER UN NOUVEAU ?? 


2010 M$S=MS&NS&!"]" Q CALL TOP(T$) à T$=MSETS à DISP E1$;:T$ ! L 

2020 CALL POSFCH("F'&NS(2,5],K$) à IF K$="N" THEN K$="E" Q LEAVE @ REM 1 

2030 DISP N$;" autre? O/N['"; à K$=KEYWAITS$S @Q DISP KS$ ! 1 

2040 IF POS("+0",K$) THEN PURGE "F'&NS[2,5] à K$="EN ELSE K$="L" 1! 1 

2050 LEAVE 9 END WHILE à REM ----------emonenvremsmmensecmesmemesmeseee 1 
- --- ECRITURE DE L'INTITULE DU FICHIER --- 

PT NILE ser RO RER sr AS nes ses esse SR sas aan ane 2 
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4200 
4210 


CREATE TEXT MFM@NS[I2,5] à ASSIGN #1 TO "FM&NS[2,5] ! 
CALL TCAT(N,P,N$S,E$) à T$=ES8TS ! 

IF N THEN TS=TS&"CM8RRECS(O,N$)[3,8]8&"} "1! 
T$=CENTERS(TS,79) à T$=(TS&SPACES(80)) [1,79] ! 

DISP E1$;T$ à PRINT #1:T$ ! 

IF N$[2,5]="MAIN" THEN INSERT #1,0:T$ ! 

CATALOGUE :MAIN OU :PORT 

WHILE N=0 Q REM ---------------............cccccesessscesee a 
T$=uUN à T$[1]=STRS(I+1) À T$[4]=" " Q J=0 ! 

REPEAT @ J=J+1 Q I=1+1 9 REM -----------------...-............... b 
M$=CATS(I,N$) à IF LEN(M$)=0 THEN SFLAG 0 à J=4 ! 

WHILE LEN(MS)#0 à REM -------------.--...-.......-............ c 
T$=TS&(REDS(MS [1,8] )&"......... “»[1,1018M$[10,10] ! c 
IF M$[14,14]="N" THEN T$S=T$8&"b" ELSE T$=T$8M$ [12,12] ! c 
TS=TS&CREDS(MS [18,22] D&SPACES(5))[1,618&" " à LEAVE à REM c 
END WHILE à REM -------ccccccscesccesessssesssecsssee c 


© © © © © © 


UNTIL J=4 @ REM ------------------.-........................e b 
IF LEN(T$)>10 THEN T$[80]=" " à T$=T$[1,79] ! 

WHILE N$[2,5)="MAIN" @ REM ---------------------.........".... d 
IF M$="" THEN REPLACE #1,CEIL(1/4);T$ à LEAVE à REM d 
INSERT #1,CEIL(1/4);T$ à LEAVE à REM d 
END WHILE @ REM -------------------.-......".................. d 


© © © © 


IF N$SC2,5)#"MAIN" THEN PRINT #1:T$ ! 

IF FLAG(O) THEN CFLAG 0 à LEAVE à REM 

DISP ESCS&"XMBRCHRS(S)ECHRS(S);P;M/M I ! 

END WHILE Q REM ------------...--......scsseseseeescessceesee a 


CAT :TAPE OÙ :TAPE(2) CON DECODE TOUT,MAIS PLUS RAPIDE) 

WHILE N#O @ REM -----"-socenesessssesesssssatese see esse css sas e 
P$="1! Q RESTORE |! 

FOR 1=1 TO 34 à READ E @ P$=P$S&CHR$(E) à NEXT I ! 
PURGE(2)+TEXT(4)+LEX(8)+BASIC(8)+KEY(4)+FORTH(4)+DATA(4)=34 ! e 


DATA 0,0,0,1,224,209,226,8,226,9,226,10,226,11 
DATA 226,20,226,21,226, 22,226, 23 
DATA 226,12,226,13,226,24,226,25,224,240,224,241 


M$=" TST LSLPLEL BSBPBEB KSK FSF DSD'" à E=1 à 1=0 ! e 
CREATE TEXT PROV @ ASSIGN #2 TO PROV @ PRINT #2; "DEBUT!" ! e 
REPEAT à E=E+1 Q E$S=RRECS(E,NS$S) @ PRINT #2;E$ @Q REM -------- f e 
UNTIL POS(ES$,CHR$S(255)&CHR$S(255)&CHR$(255)) à REM ---------- f e 
WHILE. 7 D 'REM s---ssrososrensentssssencendendonpenesenss=nsesse g e 
C=0 à DELETE #2,0 à READ #2,0;E$ ! g e 
REPEAT à F=0 à T$=""t Q T$[1]=STR$(I+1) Q T$[4]=" M! Q REM ----- hge 
REPEAT à FaFr1 à Inlt1:9CaCt1 Q REM' -s---s--ssssesenenomets ihge 
C$S=E$(1,32] à ES=ES(33] ! ihge 
IF C$[1,1]1=CHR$(255) THEN SFLAG 0 @ PURGE PROV à LEAVE à REM hge 
WUILE CSI1,512%FTAPE".Q REN #2 Samarie env k ihge 
S=256*CEIL(((CEIL(P/4)+1)*78+2)/256) ! CRI 
C$(19,19]=CHRS(S DIV 2°*16) ! k ihge 
S=S-(S DIV 216) à C$[20,20]=CHR$(S DIV 256) ! kr" tenrgre 


ND NN " "rm ND "NO "© © M" "rw NN) ON FN NN 1" D © © © " "© NN © NN © "M 


nn nn NN "mm 


NN) FO "NO FU) M) NO FO M) NO) PO ON "M 





JPC 49 Page 37 


4220 LEAVE à END WHILE @ REM ------------------...-.......... k ihge 


4230 T$=TS&(REDS(CHS [1,10] )&"......... ")11,10]8&C$110,101] ! ihge 
- Si d'autres codes,veillez a gerer La bonne position 
220 MMILE TS REN “sms tsnemenshménesaeseenses ss nu | jihge 
REOU MNILE’ 1 D'REM en eneSesnen den nee RSS NE ES m | thge 
4270 B=POS(P$,C$[11,121) ! ml ihge 
4280 IF B=0 OR B=1 THEN S=B+1 à LEAVE à REM ml ihge 
4290 T$=T$S&MS[B-2,B-1] ! ml jihge 
4300 IF B<7 THEN S=3 @ LEAVE Q REM ml ïjihge 
4310 IF B<23 THEN S=4 @ LEAVE Q REM m L ihge 
4320 1F B<31 THEN S=5 à LEAVE à REM m ihge 
4330 S=6 à LEAVE Q REM ml jihge 
RON END MIILE © EM “res mémuenerensanenmenanss es sms das m | ihge 
4350 ON S GOTO 'VOIR','NUL!','TXT!','LEBA','KEFO'!','DAT! ! L ihge 
4360 'VOIR': T$=T$&'"-a voir-" @ LEAVE @ REM | jihge 
4370 'NUL': T$=T$&!""-purgee-" Q I=I1-1 @ LEAVE Q REM ( ihge 


4390 :LEBA': IF B>14 THEN S=6 ELSE S=0 ! E «these 
4400 S=CEIL(HTD(REVS(ATHS(CS[29,30]1)))/2-S) à GOTO 4440 ! | ihgez2 


4420 'DAT': S=(NUM(C$ [30] )*256+NUM(C$ [29] ))*NUM(C$[31]) ! { 
4430 GOTO 4440 ! l 
4440 IF S<10*5 THEN TS=TS&CSTRE(S)E"..... “»[1,61 ! L:° 1 
4450 1F S>=10"5 THEN T$=TS&(STRS(IP(S/1000))&"Ko-")11,6] !  L 
4460 LEAVE à END WHILE @ REM -------------------.--..-.-...... L. à 
4470 UNTIL F=4 à IF FLAG(O) THEN LEAVE @ REM ---------------.--... î 
4480 PRINT #1; T$11,79] à DISP ESCS&"X"8RCHRS(S)ECHRS(S);P;M/MI 1! 
4490 UNTIL C=8 à IF FLAG(O) THEN LEAVE à REM ---------------------- h 
4500 END WHILE @ IF LEN(T$)>10 THEN PRINT #1:T$ @ REM --------------- g 


D © ® M M M M ®m 


4510 LEAVE à END WHILE @ REM --------------------..-....-......"....... e 2 
4520 ASSIGN #1 TO * à K$="L" à IF N THEN COPY "FM&NS$(2,5] TO NS ! 

4530 CFLAG O à LEAVE à END WHILE @ REM -----------------..-...........".. 

- OPERATIONS SUR CATALOGUE 

5010 WHILE K$="L"! à REM -------------------------...-............ 
5020 REPEAT à DISP "Cla Ech Imp Vid {Qt}" à K$=KEYWAIT$ à REM --------- a 
5030 WHILE K$="E" AND N$[2,5]="UTAPE" Q REM -------------------.-.""." b 
5040 CALL POSFCH("FTAPE",KS) ! b 
5050 IF KS#"N" THEN PURGE "FTAPE" ! b 
5060 COPY :TAPE TO "FTAPE" à SHRINK "FTAPE" à K$=M"E" à LEAVE à REM D 
5070 END WHILE Q REM ---------------------..--................".... b 


© © © © © 
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mn © © © © © NN NN © nm 


ND ON © © "© " NO "NO "mm 





5080 LNTIL KSPMEN à REN ef pme pee par ep ere Moser ne a 3 
5090 WHILE POS("IV®,KS) OR NOT POS("QC",KS) à REM --------------------. c'2 
5100 IF 11#-1 THEN PRINTER IS :11 ELSE IF V1#-1 THEN PRINTER IS :V1 ! c 3 
5110 IF 11=-1 AND V1=-1 THEN K$=!"C" à LEAVE à REM és 
5120 DISP E1$ à PLIST "F'&N$[2,5] à LEAVE @ REM c.3 
S'IL END: MILE: A REN === RER Re RE RAR En SA ee C3 
UND ONILE RE SU REN MESSE NRN ENS SENS RSNENeNES ANR RS ERA SRE d 3 
5150 ASSIGN #1 TO MFM&NS(I2,5] à T=FILESZR(!F'U&NS(2,5]) à READ #1;T$ ! d3 
5160 FOR L=1 TO T-1 à READ #1; T$ @ C=VAL(T$S) Q T$=T$[5] à B=0 ! d 3 
5170 FOR B=1 TO 4 à DISP STR$(C+B-1)&" ="£&TS(1,18] à T$=T$[19] ! d 3 
5180 K$=KEYWAITS ! d 3 
5190 IF K$="." THEN K$=!"Q" à ASSIGN #1 TO * à LEAVE @ REM d 3 
5200 NEXT B ! d 3 
5210 NEXT L à K$="Q" à LEAVE à REM d 3 
seu ED MMIILE NM RENE Rss Sea Ne Rene d 3 
5230 WHILE K$="Q" à DISP "1" Q LEAVE à END WHILE @ REM 3 
DÉRD'LEANE. S'ENL'RNILE SG RERPOD SR RER SE ee eee mien e 3 
5250 END SUR 


SUB LIST(N8$) à DIM T$[80] à CALL PCAT(I,N8$) @ CALL TOP(T$) 
TS=TS&">MLCATS(1)11,22] Q CALL IMP(N8$,T$) 


SUB IMP(N8$,T$) @ CALL PERI(E,R,11,V1) à IF 11=-1 AND V1=-1 THEN END 

WHILE 11#-1 @ PRINTER IS :%35 @ WRAP ON à PERF ON à PAGELEN 72,60 à MODE 1 
UNDERLINE ON @ PRINT T$ @ PLF @ UNDERLINE OFF @ MODE O0 à LEAVE à END WHILE 
WHILE 11=-1 Q PRINTER IS :DISPLAY 

DISP ESCS&MENSESCSE "MZ NECHRS(15)ECHRS(2); T$ Q LEAVE @ END WHILE 

PLIST N8$ à IF 11#-1 THEN 'LF' ELSE DISP MEM 


SUB POSFCH(NS,K$) @ K$='"IN!! @ ON ERROR GOTO 6130 à K$=ADDRS(REDS(N$)) 
OFF ERROR 


SUB PERI(E,R,11,V1) Q E=-1 Q R=-1 àQ 11=-1 à V1=-1 
E=DEVADDR("%16) à R=DEVADDR(!"416(2)1) 
11=DEVADDR("%35) @ V1=DEVADDR(!%481) 


== 
A un un un du (eu due (eue due do Meue doe ue done (ee de (ee die Je don donne ue de don de “oi de do Aie de CN de CUS CU CN CS CN CN Gt CN CU GUN GUN GUN MU MN UE MN M M ANR dE AR GE du An 


SUB TCAT(E,P,N$,E$) 
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6180 WHILE N$[1,5]#":TAPE" Q IF N$=":MAIN" THEN S=MEM ELSE S=MEM(VAL(NS[6])) 
6190 LEAVE @ END WHILE 

6200 WHILE E=0 à Y=8 à P=0 

6210 REPEAT à P=P+Y 

6220 IF LENC(CAT$(P,N$)11,8]) THEN Y=Y*2 ELSE P=P-Y @ IF Y>1 THEN Y=Y/2 ELSE Y=0 
6230 UNTIL Y=0 à N=0 @ FOR Y=1 TO P @ N=N+VAL(CATS(Y,N$)[18,22]) à NEXT Y 
6240 ESL[1]=STR$(P) à ES[4]="=MESTRÉ(N) à E$[12]="+ env MESTRE(S) 

6250 LEAVE @ END WHILE 

6260 WHILE E#0 

6270 P=MAXD(N$S)-MEMD(N$S) Q ES[1]=STR$(P) Q E$[4]="="8&STRE(MAXM(NS) -MEMM(NS )) 
6280 E$[11]="+ "&STRS(MEMD(N$S)) Q E$[18]="="ESTRS(MEMM(NS )) 

6290 LEAVE Q END WHILE 

6300 ES$=E$&" oct! à END SUB 


Deux types de fichiers d'affectations: 1)KBAS 2)KDEP 

1) KBAS 

DEF KEY "F=",ESC$&'"Q"&MFIND ! 'MRESCS& "D: 

AS=ESCS&"DIRESCSE "PI à AS=ASEAS à AS=ASEAS 

AS=ASRESCS&'QNENDEF KEY'F-1,1&NiN à DEF KEY "F(",A$: 

DEF KEY "F.1, !NBS=REDS(CAT$(0) [1,8] )@CALL LIST(N8$)QDESTROY N8$!: 
2) KDEP Gestion curseur avec PAC-SCREEN( pratique sous EDTEXT ) 
DEF KEY "F7", ESCS&MZNE&CHRS(1)&CHRS (2): 

DEF KEY "F8",ESCS&!"A!: 

DEF KEY "F9N ESCSENSH: 

DEF KEY "FIN, ESCS&NTN: 

DEF KEY "F2 ,ESC$&!"B!';: 

DEF KEY "F3" ,ESCS&"XN&CHRS (71 )&CHR$(22): 





JPC 49 Page 40 








LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-Ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 


Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 

Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 

Vous trouverz donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"}, ainsi que les Lex de ce mois-ci. 


CHARLEX 


CHRONOLX  CHRONOS XFN 94100 


CHRONO XFN 94101 

YESNOLEX  YESNO XFN 92223 

DATELEX  DATESTRS XFN 225050 DATEADD XFN 225051 
DDAYS XFN 225052 DMY XWORD 225053 
DOWS$ XFN 225054 DOW XFN 225055 
MDY XWORD 225056 


10 CALL MLEX à SUB MLEX Q SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: ";N @ LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS$(!"AH!)) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT “000: ",P$;:A$ @ C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à A$S=A$&CS à A=A+37 à N=N*2+37 àQ Q=3 Q SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$S[5*FLAG(5)+1] @ POKE DTH$(A),C$ Q A=A+16-5*FLAG(5,0) à NEXT X à Q=4 


60 DISP DTHS(X)[31: à INPUT ": ",P$[1,MOD(N,16)]1;C$ à GOSUB 90 
70 POKE DTH$(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$SCX)[31: à INPUT M: ",P$:C$ 

90 DISP DTH$(X)[31; @ INPUT " sm ","---":-D$ 


100 M=S à FOR Z=1 TO LEN(C$S) @ M=NUM(CS[Z])+M+1 @ NEXT Z 

110 IF D$=DTH$S(MOD(M,4096))13] THEN GOSUB 130 à S=M Q RETURN 

120 DISP “Erreur de somme! Q BEEP Q P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$=n-----.-.......... “ @ RETURN 
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CHARLEX ID#E1 624 octets 036: 084E794142400000 1EB 01A: AF8038AEAF75CE10 OCC 
037: 00000000002E4559 529 01B: A7EBEAFAT1AB7A10 4A6 
0123456789ABCDEF sm 038: 3200000000000000 83€ 01C: 11F494F2BF4BF4AF 876 
039: 0000000000000026 B56 01D: 67BA1AF774A110B7 C1C 
000: 34841425C4548502 35E 03A: 5556587008365556 EB5 01E: CA131A314D171113 F90 
001: 802E004131810178 6AF 03B: 5810083645464830 206 01F: 789131A314D171DB 323 
002: 5E4001E000000000 9F3 03C: 0832414248700024 547 020: DA798131E214D171 6AE 
003: FE0000000800001F D4D 03D: 5655587008345655 8A4 021: 1117871048568417 A03 
004: F31BF961400032BF 0EO 03E: 5810083446454830 BF3 022: E418F89810D28038 D8E 
005: 38F14A11DB10AD23 47A 03F: 0C3042414C700024 F48 023: AE606C7F04D08558 132 
006: 07D532BFB8FD7911 82D 040: 5556587008355654 2A5 024: 587821208F6B0201 4A6 
007: 11AD754D7A101743 BBO 041: 5810083546444830 5F4 025: B344F2AA01502051 81B 
008: 11014D1CB15D0000 F1B 042: 0C3142404C700025 94A 026: 111021F849F2D014 B8D 
009: 71450375FF864834 298 043: 5455587008355455 CA4 027: BFO8A8B43048F719 F32 
00A: 5655581008355654 5EF 044: 5810083544454830 FF2 028: 218FD7521874531F 2B8 
00B: 5810002455565870 93C 045: 0C3140414C700875 354 029: 244F2157090E52D2 632 
00C: 0026555658700836 C8E 046: 14141870000A4972 6A5 02A: 8038AEAF8F2C6005 9E0 
00D: 5556581008364545 FE4 047: 40000E3159454E30 A0S5 028: 118F1270068CF629 D62 
00E: 4A30000A49724000 337 048: OC7A0F7949400024 D7D 02C: 01B8F6F2156292EE 104 
00F: 0808094A2C180814 6A0 049: 5554587000084A71 0D9 02D: E8F38A21D2203161 489 
010: A464242008355455 9FA 04A: 40000C523A262D10 43A 02E: 8FA90F00511275C0 80F 
011: 581000054C714000 D40 048: 0424587458400875 791 02F: 112BF4BF431E214D BAF 
012: 0C3142404C700832 09C 04C: 1415187000094A70 AE 030: 171AF67670AF77F6 F5A 
013: 41414A70002078A0 3F4 040: 4000083544454830 E25 031: 0DF103DA799031A3 2EE 
014: 2F30000000000000 71F 04E: 0C3140414C300C74 18D 032: 14D171DFAEA76803 699 
015: 0000000000000000 A2F 04F: 56555450000540C71 4E4 033: 1A314D1711137570 9F8 
016: 0000000000000000 D3F 050: 40000 5DD 034: 1CF1C51CF8DC32FO0 DBF 
017: 0000000000000000 04F 035: 1128F223B1AF6A3E 161 
018: 0000000000000000 35F 7 CHRONOLX ID#5E 469 octets 036: A3E8F38A218D612F 512 
019: 0000000000000000 66F 037: 018874F209154301 877 
01A: 0000000000000000 97F 0123456789ABCDEF sm 038: 21AF23068DB7CE02 C1B 
018: 0000000000000000 C8F 039: 03103AF1A88A61F1 FAA 
01C: 0000000000000000 F9F 000: 348425F4E4F4C485 398 03A: F1F4A88A61D41593 34E 
01D: 0000000000000000 2AF 001: 802E005131810178 6ED 038: 1730120AF1A88BE1 6DD 
01E: 0000000000000000 5BF 002: FA300E5465600000 A56 03C: BB122A84BB463CF ASC 
01F: 0000000000000000 8CF 003: F020000000000000 D7E 
020: 0000000000000000 BDF 004: OECO00F1107A000F OFC ” YESNOLEX ID#5C 137 octets 
021: 000000000000080€ FOA 005: D348425F4E4F4424 491 
022: 1A28080008080A2C 274 006: 6B348425F4E4F456 82B 0123456789ABCDEF sm 
023: 180008040E340800 5BD 007: 1FF8F2B521AFAAF2 C03 
024: 08001E3018000000 8F7 008: 24323A28FB7CE08F FB1 000: 955435E4F4C45485 38F 
025: 0000000000000000 C07 009: 4BCEOAFA8F223B1A 380 001: 802E006131810178 6E2 
026: 0000000000000000 F17 O0A: F22C322158F8A4C0 718 002: 61100C5FDFD00000 A66 
027: 0000000000000000 227 00B: 8F4F6CO8FA4B2180 AC9 003: F710000000000000 D94 
028: 0201000000010200 53D 00C: DOBD6BDEBDEBDEBD EC3 004: 081000F9955435E4 104 
029: 0000000201020000 852 00D: 6BF6BF60D0D0DODO 285 005: F4FD1FF001361081 499 
02A: 0001000100000002 B66 00E: DODODBF60CS5AF010 63F 006: 371097220B1E302F 808 
02B: 0102010000000000 E7A 00F: O8FC5A212180C21B 9CC 007: 30295F2E4B144B14 B91 
02C: 0000000000000000 18A 010: 8F6F215426A10008 D44 008: 4B144B1C3FF07729 F2E 
02D: 045E755142400101 4D6 011: FCS5A21AA21B8F6F2 109 009: 08F2C6004538FEE0 2CB 
02E: 0101010000000000 7E9 012: 1542048588557142 45E 00A: 10D231608A1E2312 633 
02F: 0000000000000000 AF9 013: 208F6B0201B084F2 7DF | 00B: 28A1D31F244F2AF2 SD8 
030: 0000070507000000 E1C 014: 203D02348627F6E6 B5F 00C: 155717F155755C8F D65 
031: 00000000083444C4 15A 015: F615CD16D3D02A30 F00 00D: 127006BBFAF2B468 10C 
032: 44400D7901112D70 4BA 016: 20303A30315CD16D 277 00E: 1610A7A10955637F 487 
033: 050D750509700000 804 017: 3003A30303E20303 5D8 00F: FAF210A7800E4F60 82C 
034: 0D70000000384540 B47 018: 15CD16D85684170E 96C 010: 2FF077A108F69220 BBB 
035: 4020014E322E3140 E9B 019: 18F89810D28038AA D00 011: 1141111311108091 FOE 
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012: 2F01358FE0C108F8 2AC 01C: 108108/050AEEAE7 4AB 03E: 10AAEB10B8F064A1 D5C 


013: 981003F 42E 01D: AE8D081081081081 821 03F: 109F4F475BF1107E OFC 
01E: 067B063C18F83DB0 BBC 040: AF31F2778F1127F9 &4AF 
/ DATELEX ID#E1 731 octets 01F: 137C21F0C8F21451 F41 041: F31F278AF113709F 852 
020: 3525A802081CD285 2BA 042: 8408D781818C228F BEA 
0123456789ABCDEF sm 021: 83088A2D084830A8 63C 043: BC631AF2D6470FAB FBO 
022: A63C7341878D1AF0 9DB 044: FA17F10B762D11BA 360 
000: 44144554C4548502 35E 023: AEAFO0F01007D2111 D6F 045: 728F53331870B0AE 6ED 
001: 802E007131810178 6B2 024: OAEA6S20AFOAEAD2 137 046: 9AEFAESD6AFO24A9 ACE 
002: AB5001E238300000 A10 025: 31069E2903191560 493 047: A20814814814814A E36 
003: FD4002A000000011 D63 026: 3102F2F2CA100792 810 048: E48148143101AEFA 1CB 
004: 0A8300F0004E300F OD7 027: 176F01097E117BE0 B9A 049: EA9E350814814BF4 56D 
005: 420E5400F130B450 440 028: AE71F0C8F2147135 F36 04A: 450B34AF666B0CC2 912 
006: ODA30A8400F540B8 7CE 029: 119AE51109698496 2B1 04B: 27DBC10376BC11BA CBF 
007: 400FE4084500DD44 B52 02A: B3431219E1A33428 625 04C: C39FECOAFEOSBCFO OA8 
008: 14455414444433F4 EAE 02B: 5108B2E28A294312 99C 04D: 4B7E8F4BCE08F223 46B 
009: 4144554354525422 1F9 02C: 09657531929E3719 DOD 04E: BT1AF6ACB6770C018 821 
004: 3944441495354354 550 02D: 6797D682281E81E8 OA&4 04F: 51690000184194E0 B89 
00B: 4D49553744F47542 8CD 02E: 326064C096C06D6F 434 050: 413706136060B10B EE3 
00C: 63544F475735D444 C48 02F: 6F682281E81E832C 7CE 051: 8F2B5211180B0713 25E 
00D: 95831FF80F001F04 FD7 030: 452E31019E59D965 B57 052: 407135119BF6BF68 5F1 
00E: 0202020202CF0802 324 031: B031519E7BCAE910 EFD 053: 1E8F922312067007 95C 
00F: 3557E6D01CF0902D 6C0 032: 831709ED9005B650 27D 054: F2CA7CAF23078FB7 D2C 
010: 4F6E6D01C11A0345 A52 033: 431100€613103A69 5D9 055: CE020871F0816816 OAA 
011: 575637D01C518057 DCF 034: 9E31ATIBAESDEAFO 992 056: 8D612FO0DA34801E0 43F 
012: 55646E65637D01C3 154 035: DAAE9AF1IAESAEBAF DAB 057: C21088F625308FA0 7CA 
013: 1C044586572737D0 4C6 036: 3AE78D403317210A 12A 058: 521FE8FC2B901188 B6D 
014: 1CF0D02642796D01 84D 037: E87B00AE9BE2A620 4E1 059: FBA9908D60890630 F04 
015: C31E043516475727 BBC 038: 11C114B8F670B14A 871 O5A: O00F2000315E8FAF5 294 
016: D01CC0012461697C F3E 039: 13103B6A011C114B BDF 058: 31571E1000710003 5D6 
017: FF315E8FC4631850 2E4 03A: 31F2962008D91FB0 F6A 05C: 15E8F106318D84A8 96B 
018: 4508401534B444B5 64B 038: 81473008103103A8 2BA 05D: 0038D30350F BC6 
019: 8FDF8E017F200494 9F1 03C: 68D40581C1173AD8 64A 
O1A: C44AB2932D0B3693 D8A 03D: F533310420100AE9 985 
01B: 643BF0810810AE68 115 03E: 10AAEB10B8F064A1 D5C 
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PPC PARIS CHAPTER 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 


Nom |_|_| 
Prénom |_|_| 
Adresse |_|_|_ 

| 

| 

| 


Profession 
Intérêts 


Matériel HP en votre possession 


Autre matériel informatique 


Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 


Je souhaite adhérer au club PPC Paris Chapter conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir le droit de fournir 
tous Les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dans Le Journal de Liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeants de 


PPC-Paris. 

Date |_|_|/1_1_1/191 |] 

Signature, précédée de La mention "Lu et Approuvé! 

Le montant de La cotisation s'élève à 350.00 F pour un an. 


Etudiants: 300.00 F (justificatif indispensable) 


Paiement effectué Le |_|_|/|_|_|/19]_|_| à l'ordre de PPC Paris Chapter, 
par [ ] chèque bancaire, [ ] chèque postal ou [ ] mandat lettre 


Eventuel lement: je m'abonne à compter du [0]1|/|_|_|/19|_|_| 


Veuillez envoyer toute correspondance à : 
PPC Paris Chapter, BP 604, 75028 Paris Cedex 01, France 
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ENGLISH SUMMARY 
JPC 49 - NOVEMBER 1987 


Even if you, reader out of France, are less concerned with it, we inform you that PPC Paris will have a 
important meeting in January 1987. Subjects will be new PPC Paris board election, new statutes and other 
important things about our Club. 


On page 3, you have a letter from a young member giving a few hints about using FIND. 


Two articles in the HP-28 columns. First, we inform you that if you are using an HP-28C version 1CC, you 
can still use the clock program given in JPC 46 by changing #123E SYSEVAL into #1266 SYSEVAL. Next, Eric 
Gengoux gives us three little programs to plot on the HP-28C. 


Continuing the series about HP-IL discs and HP-41, Michael Markov provides us with programs which are 
intended to decrease the power consumption and increase medium life. 


We will soon have Lex files for the HP-75. However, it is difficult to load these files, because there is no 
assembler on this machine. So, Eric Gengoux gives us two programs similar to those already existing for the 
HP-71. They will allow you to easily load those files. 


The Forth definitions from Alain Goubault de Brugière’s article are intended to help you work with the 
Translator Pac. It explains the problem of conflicting names between the HP-41 and Forth vocabularies, and 
how he solves them. Next, he explains how to recover smoothly from an error in Forth environment. 


We have a large HP-71 assembly language column this month. First, we start by a short summary of JPC 
Rom keywords and the various changes which have occurred this year (new keywords and renaming old 
ones, a few have been suppressed). This gives you an idea of the numerous possibilities of JPC Rom. 


Two new assembly language programmers presents us their first productions. First, Lionel Guillou has 
written a stop watch for the HP-71. The two keywords return the time value, either as a string or as a 
numeric. The first key press starts the stop watch, the second stops it. Jean Yves Naour gives us a function 
asking a question and asking for a Yes/No answer. 


The last Lex file this month is a new, very much improved version of DATELEX. All the bugs existing in 
previous versions have been corrected (we hope so !). It is a completely new version. This is the one used in 
JPC Rom. 

The DIFF program published in JPC 44 was really bugged. Thierry Besançon gives on page 36 three 
modifications but the program is still not good : Thierry says that u(x)" has not been corrected. 


Until next month, 


Happy Programming and JPC reading ! 


